15 lines
236 B
Ada
15 lines
236 B
Ada
package openGL.Model.polygon
|
|
--
|
|
-- Provides an abstract class for polygon models.
|
|
--
|
|
is
|
|
type Item is abstract new Model.item with null record;
|
|
|
|
|
|
|
|
private
|
|
|
|
Normal : constant Vector_3 := [0.0, 0.0, 1.0];
|
|
|
|
end openGL.Model.polygon;
|