











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;;


(* Map functions on complex geometrics *)

(* map_elevationGrid_colors : vrml_object -> color list -> vrml_object *)
let map_elevationGrid_colors obj =
    map_obj obj setf_elevationGrid_colors
;;

(* map_elevationGrid_texture_coordinates :
   vrml_object -> textureCoordinate -> vrml_object *)
let map_elevationGrid_texture_coordinates obj =
    map_obj obj setf_elevationGrid_texture_coordinate
;;
