Back to... GLOBE_3D

Source file : sierpinski.ads


with GLOBE_3D;

package Sierpinski is

  type Cubic_Face_count is new Integer range 1..6;
  type Cubic_Face_texture is array(Cubic_Face_count) of GLOBE_3D.Image_ID;

  procedure Create_Cube(
    object       : in out GLOBE_3D.p_Object_3D;
    scale        :        GLOBE_3D.Real;
    centre       :        GLOBE_3D.Point_3D;
    texture      :        Cubic_Face_texture;
    tiled        :        Boolean;
    fractal_level:        Natural
  );

end Sierpinski;

GLOBE_3D: Ada library for real-time 3D rendering. Ada programming.