CS计算机代考程序代写 pragma Warnings (Off);

pragma Warnings (Off);
pragma Style_Checks (Off);

with GLOBE_3D.tri_Mesh;
with GLOBE_3D.Sprite;

with GL.Textures;

with ada.unchecked_Deallocation;

package Terrain.vbo is

use Globe_3d;

— sprite (uses vertex buffer objects)

procedure Create (Object : in out sprite.p_Sprite;
png_Heights : in String; — filename of the PNG heightmap image
Scale : in Vector_3D;
base_Texture : in String — filename of the ground texture.
);

function Create (tga_Heights : in String;
texture_Image : in String;
tile_Width : in Positive := 32;
tile_Depth : in Positive := 32;
base_Centre : in Vector_3D := (0.0, 0.0, 0.0); — Central point of the bottom of the terrain.
Scale : in Vector_3D := (1.0, 1.0, 1.0)) return sprite.p_sprite_Grid;

————————————-

function new_terrain_Sprite return sprite.p_Sprite;

end Terrain.vbo;