Add initial prototype.

This commit is contained in:
Rod Kay
2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions

View File

@@ -0,0 +1,65 @@
package collada.Library.animations
--
-- Models a collada 'animations' library, which is a collection of animations.
--
is
type Inputs_view is access all Library.Inputs;
type int_Array_view is access all int_Array;
-----------
--- Sampler
--
type Sampler is
record
Id : Text;
Inputs : Inputs_view;
end record;
-----------
--- Channel
--
type Channel is
record
Source : Text;
Target : Text;
end record;
--------------
--- Animation
--
type Animation is
record
Id : Text;
Name : Text;
Sources : library.Sources_view;
Sampler : animations.Sampler;
Channel : animations.Channel;
end record;
type Animation_array is array (Positive range <>) of Animation;
type Animation_array_view is access Animation_array;
function Inputs_of (Self : in Animation) return access float_Array;
function Outputs_of (Self : in Animation) return access float_Array;
function Interpolations_of (Self : in Animation) return access float_Array;
----------------
--- Library Item
--
type Item is
record
Contents : Animation_array_view;
end record;
end collada.Library.animations;