pragma Warnings (Off);
pragma Style_Checks (Off);
— This package allows to test basic shape for extruded surfaces
with GLOBE_3D;
package Extruded_surface is
type Kind_of_surface is (square, sphere);
procedure Create (
Object : in out GLOBE_3D.p_Object_3D;
Scale : GLOBE_3D.Real;
Centre : GLOBE_3D.Point_3D;
grid : in Positive;
surface : in Kind_of_surface;
max_u3 : in GLOBE_3D.Real;
iterations : in Natural;
hor_tex,
ver_tex : in GLOBE_3D.Image_ID;
tiling_hu,
tiling_hv,
tiling_vu,
tiling_vv : in Positive
);
end Extruded_surface;