18 lines
328 B
Ada
18 lines
328 B
Ada
package body openGL.Culler
|
|
is
|
|
|
|
procedure Viewer_is (Self : in out Item'Class; Now : in Renderer.lean.view)
|
|
is
|
|
begin
|
|
Self.Viewer := Now.all'Access;
|
|
end Viewer_is;
|
|
|
|
|
|
function Viewer (Self : in Item'Class) return Renderer.lean.view
|
|
is
|
|
begin
|
|
return Self.Viewer;
|
|
end Viewer;
|
|
|
|
end openGL.Culler;
|