38 lines
612 B
Ada
38 lines
612 B
Ada
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;
|