16 lines
289 B
Ada
16 lines
289 B
Ada
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 := 200.0;
|
|
end record;
|
|
|
|
end openGL.remote_Model;
|
|
|
|
|