Up  

Module Povray

module Povray: sig .. end
type location = float * float * float 
type color =
| Red
| Green
| Blue
| Yellow
| White
| Black
| Cyan
| RGB of float * float * float
| RGBT of float * float * float * float 
type scene_desc =
| Background of color
| Camera of location * location
| Light_source of location * color
| Sphere of location * float * string
| Cone of location * float * location * float * string
| Box of location * location * string * location option 
type scene 
val new_scene : unit -> scene
val string_of_scene : scene -> string
val print_scene : scene -> unit
type inc_file =
| Arrays
| Chars
| Colors
| Consts
| Debug
| Finish
| Functions
| Glass
| Glass_old
| Golds
|
| Math
| Metals
| Rad_def
| Rand
| Textures
| Transforms
| Screen
| Shapes
| Shapes2
| Shapes_old
| Shapesq
| Skies
| Stage1
| Stars
| Stdcam
| Stdinc
| Stoneold
| Stones
| Stones1
| Stones2
| Strings
| Sunpos
| Woodmaps
| Woods 
val string_of_inc_file : inc:inc_file -> string
val get_include : inc:inc_file -> string
val add_include : scene -> inc:inc_file -> scene
val get_color : color:color -> string
val get_camera : location:int * int * int -> look_at:int * int * int -> string
val add_camera : scene ->
       location:int * int * int -> look_at:int * int * int -> scene
val get_background : color:color -> string
val add_background : scene -> color:color -> scene
val get_light_source : location:int * int * int -> color:color -> string
val add_light_source : scene ->
       location:int * int * int -> color:color -> scene
val get_ambient_light : color:float * float * float -> string
val add_ambient_light : scene -> color:float * float * float -> scene
val get_texture : ?color:color -> ?scale:int -> ?def:string -> unit -> string
val get_sphere : center:float * float * float ->
       radius:float -> ?texture:string -> unit -> string
val get_cone : center1:float * float * float ->
       radius1:float ->
       center2:float * float * float ->
       radius2:float -> ?texture:string -> unit -> string
val get_box : corner1:float * float * float ->
       corner2:float * float * float ->
       ?texture:string -> ?rotate:float * float * float -> unit -> string
val get_cylinder : center1:float * float * float ->
       center2:float * float * float ->
       radius:float -> ?texture:string -> unit -> string
val get_torus : major:float ->
       minor:float ->
       ?texture:string -> ?translate:float * float * float -> unit -> string
val get_text : font:string ->
       text:string ->
       ?thickness:float -> ?offset:float -> ?texture:string -> unit -> string
val add_sphere : scene ->
       center:float * float * float ->
       radius:float -> ?texture:string -> unit -> scene
val add_cone : scene ->
       center1:float * float * float ->
       radius1:float ->
       center2:float * float * float ->
       radius2:float -> ?texture:string -> unit -> scene
val add_box : scene ->
       corner1:float * float * float ->
       corner2:float * float * float ->
       ?texture:string -> ?rotate:float * float * float -> unit -> scene
val add_cylinder : scene ->
       center1:float * float * float ->
       center2:float * float * float ->
       radius:float -> ?texture:string -> unit -> scene
val add_torus : scene ->
       major:float ->
       minor:float ->
       ?texture:string -> ?translate:float * float * float -> unit -> scene
val add_text : scene ->
       font:string ->
       text:string ->
       ?thickness:float -> ?offset:float -> ?texture:string -> unit -> scene