











open Compatibility;;
open Types;;
open Default;;
open Exceptions;;
open Basic_types;;
open Font;;
open Fonts;;
open Colors;;
open Vrml_objects_pre;;
open Calc_3D;;
open Vrml_objects_post;;
open Positionables;;
open Geometrics;;
open Geometric_properties;;
open Map;;
open Complex_geometrics;;
open Map_complex;;
open Lights;;

(* map_light_color : vrml_object -> color -> vrml_object *)
let map_light_color obj color =
    map_obj obj setf_light_color color
;;

(* map_directionalLight_direction :
   vrml_object -> vect3D -> vrml_object *)
let map_directionalLight_direction obj direction =
    map_obj obj setf_directionalLight_direction direction
;;
