Back to... |
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;