24 lines
419 B
Ada
24 lines
419 B
Ada
package body gel.Camera.forge
|
|
is
|
|
|
|
function new_Camera return gel.Camera.item
|
|
is
|
|
begin
|
|
return the_Camera : gel.Camera.item
|
|
do
|
|
define (the_Camera);
|
|
end return;
|
|
end new_Camera;
|
|
|
|
|
|
|
|
function new_Camera return gel.Camera.view
|
|
is
|
|
Self : constant gel.Camera.view := new gel.Camera.item;
|
|
begin
|
|
Self.define;
|
|
return Self;
|
|
end new_Camera;
|
|
|
|
end gel.Camera.forge;
|