package openGL.remote_Model with remote_Types -- -- Provides a DSA friendly base class for 3D models. -- is type Item is abstract tagged record Id : model_Id := null_model_Id; Shine : openGL.Shine := 1.0; end record; end openGL.remote_Model;