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,37 @@
with
ada.Calendar;
package collada.Asset
--
-- Models a collada asset.
--
is
type Contributor is
record
Author : Text;
authoring_Tool : Text;
end record;
type Unit is
record
Name : Text;
Meter : Float;
end record;
type up_Direction is (X_up, Y_up, Z_up);
type Item is
record
Contributor : asset.Contributor;
Created : ada.Calendar.Time;
Modified : ada.Calendar.Time;
Unit : asset.Unit;
up_Axis : up_Direction;
end record;
end collada.Asset;