Add initial prototype.
This commit is contained in:
Rod Kay
288
4-high/gel/source/human/gel-human.ads
Normal file
288
4-high/gel/source/human/gel-human.ads
Normal file
@@ -0,0 +1,288 @@
|
||||
with openGL.Model,
|
||||
physics.Model,
|
||||
gel.Sprite,
|
||||
gel.Joint,
|
||||
gel.human_Types,
|
||||
openGL,
|
||||
openGL.Program;
|
||||
|
||||
limited
|
||||
with gel.World;
|
||||
|
||||
private
|
||||
with collada.Library.visual_scenes;
|
||||
|
||||
|
||||
|
||||
package gel.Human
|
||||
--
|
||||
-- Provides access to and control of a 'make_human' produced model.
|
||||
--
|
||||
is
|
||||
type Item is tagged limited private;
|
||||
type View is access all Item'Class;
|
||||
type Views is array (math.Index range <>) of View;
|
||||
|
||||
|
||||
procedure define (Self : in out Item; World : access gel.World.item'Class;
|
||||
Model : access openGL.Model.item'Class;
|
||||
physics_Model : access physics.Model.item'Class;
|
||||
Mass : in math.Real := 0.0;
|
||||
is_Kinematic : in Boolean := False);
|
||||
|
||||
|
||||
|
||||
type bone_Sprites is array (human_types.bone_Id) of gel.Sprite.view;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure use_Model (Named : in String);
|
||||
|
||||
|
||||
|
||||
|
||||
package Forge is
|
||||
|
||||
function new_Human (World : access gel.World.item'Class;
|
||||
-- Space : in gel.Sprite.physics_Space_view;
|
||||
Model : access openGL.Model .item'Class;
|
||||
physics_Model : access physics.Model.item'Class;
|
||||
Mass : in math.Real := 0.0;
|
||||
is_Kinematic : in Boolean := False) return Human.view;
|
||||
|
||||
function new_Human (bone_Sprites : in human.bone_Sprites;
|
||||
controller_Joints : in human_types.controller_Joints;
|
||||
Model : access openGL.Model.item'Class) return Human.view;
|
||||
|
||||
end Forge;
|
||||
|
||||
|
||||
|
||||
procedure destroy (Self : in out Item);
|
||||
procedure free (Self : in out View);
|
||||
|
||||
|
||||
type motion_Mode is (Physics, Animation);
|
||||
|
||||
procedure motion_Mode_is (Self : in out Item; Now : in motion_Mode);
|
||||
|
||||
|
||||
function base_Sprite (Self : in Item'Class) return gel.Sprite.view;
|
||||
function Sprite (Self : in Item'Class; for_Bone : in human_types.bone_Id) return gel.Sprite.view;
|
||||
|
||||
|
||||
|
||||
procedure controller_Joints_are (Self : in out Item'Class; Now : in human_types.controller_Joints);
|
||||
function controller_Joints (Self : in Item'Class) return human_types.controller_Joints;
|
||||
|
||||
|
||||
procedure evolve (Self : in out Item'Class);
|
||||
|
||||
|
||||
|
||||
--- Animation
|
||||
--
|
||||
|
||||
type scene_joint_Id is (Armature,
|
||||
MasterFloor,
|
||||
Root,
|
||||
Hips,
|
||||
UpLeg_L, LoLeg_L, Foot_L, Toe_L,
|
||||
UpLeg_R, LoLeg_R, Foot_R, Toe_R,
|
||||
Spine1, Spine2, Spine3,
|
||||
Neck, Head, Jaw,
|
||||
TongueBase, TongueMid, TongueTip,
|
||||
Eye_R, Eye_L,
|
||||
UpLid_R, LoLid_R,
|
||||
UpLid_L, LoLid_L,
|
||||
|
||||
Clavicle_L, UpArm_L, LoArm_L, Hand_L,
|
||||
|
||||
Wrist_1_L,
|
||||
Palm_2_L, Finger_2_1_L, Finger_2_2_L, Finger_2_3_L,
|
||||
Palm_3_L, Finger_3_1_L, Finger_3_2_L, Finger_3_3_L,
|
||||
Wrist_2_L,
|
||||
Palm_4_L, Finger_4_1_L, Finger_4_2_L, Finger_4_3_L,
|
||||
Palm_5_L, Finger_5_1_L, Finger_5_2_L, Finger_5_3_L,
|
||||
Palm_1_L, Finger_1_1_L, Finger_1_2_L, Finger_1_3_L,
|
||||
|
||||
Clavicle_R, UpArm_R, LoArm_R, Hand_R,
|
||||
|
||||
Wrist_1_R,
|
||||
Palm_2_R, Finger_2_1_R, Finger_2_2_R, Finger_2_3_R,
|
||||
Palm_3_R, Finger_3_1_R, Finger_3_2_R, Finger_3_3_R,
|
||||
Wrist_2_R,
|
||||
Palm_4_R, Finger_4_1_R, Finger_4_2_R, Finger_4_3_R,
|
||||
Palm_5_R, Finger_5_1_R, Finger_5_2_R, Finger_5_3_R,
|
||||
Palm_1_R, Finger_1_1_R, Finger_1_2_R, Finger_1_3_R,
|
||||
|
||||
Wrist_L, Wrist_R,
|
||||
Ankle_L, Ankle_R);
|
||||
|
||||
|
||||
|
||||
type axis_Kind is (x_Axis, y_Axis, z_Axis);
|
||||
|
||||
procedure set_rotation_Angle (Self : in out Item'Class; for_Joint : in scene_joint_Id;
|
||||
Axis : in Axis_Kind;
|
||||
To : in math.Real);
|
||||
|
||||
|
||||
procedure set_x_rotation_Angle (Self : in out Item'Class; for_Joint : in scene_joint_Id;
|
||||
To : in math.Real);
|
||||
|
||||
procedure set_y_rotation_Angle (Self : in out Item'Class; for_Joint : in scene_joint_Id;
|
||||
To : in math.Real);
|
||||
|
||||
procedure set_z_rotation_Angle (Self : in out Item'Class; for_Joint : in scene_joint_Id;
|
||||
To : in math.Real);
|
||||
|
||||
|
||||
procedure set_Location (Self : in out Item'Class; for_Joint : in scene_joint_Id;
|
||||
To : in math.Vector_3);
|
||||
|
||||
|
||||
procedure update_all_global_Transforms (Self : in out Item'Class);
|
||||
|
||||
|
||||
--- animation
|
||||
--
|
||||
procedure animate (Self : in out Item; world_Age : in Duration);
|
||||
procedure reset_Animation (Self : in out Item);
|
||||
|
||||
|
||||
type joint_Transforms is array (gel.human_Types.controller_joint_Id) of opengl.Matrix_4x4;
|
||||
|
||||
type skin_program_Parameters is new opengl.Program.Parameters with
|
||||
record
|
||||
bone_Transforms : human.joint_Transforms := (others => opengl.math.Identity_4x4);
|
||||
end record;
|
||||
|
||||
overriding
|
||||
procedure enable (Self : in out skin_program_Parameters);
|
||||
|
||||
|
||||
|
||||
private
|
||||
use human_Types;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
type Joints is array (controller_joint_Id) of gel.Joint.view;
|
||||
|
||||
|
||||
|
||||
type scene_Joint is
|
||||
record
|
||||
Node : collada.Library.visual_scenes.Node_view;
|
||||
Transform : math.Matrix_4x4;
|
||||
end record;
|
||||
|
||||
type scene_Joints is array (scene_joint_Id) of scene_Joint;
|
||||
|
||||
|
||||
|
||||
-- type joint_Transforms is array (controller_joint_Id) of opengl.Matrix_4x4;
|
||||
--
|
||||
-- type skin_program_Parameters is new opengl.Program.Parameters with
|
||||
-- record
|
||||
-- bone_Transforms : human.joint_Transforms := (others => opengl.math.Identity_4x4);
|
||||
-- end record;
|
||||
--
|
||||
-- overriding
|
||||
-- procedure enable (Self : in out skin_program_Parameters);
|
||||
|
||||
|
||||
|
||||
|
||||
--- Animation
|
||||
--
|
||||
|
||||
type channel_Id is (root_loc, root_x, root_y, root_z,
|
||||
-- hips_x, hips_y, hips_z,
|
||||
spine_1_x, spine_1_y, spine_1_z,
|
||||
spine_2_x, spine_2_y, spine_2_z,
|
||||
spine_3_x, spine_3_y, spine_3_z,
|
||||
neck_x, neck_y, neck_z,
|
||||
head_x, head_y, head_z,
|
||||
|
||||
l_clavicle_x, l_clavicle_y, l_clavicle_z,
|
||||
l_uparm_x, l_uparm_y, l_uparm_z,
|
||||
l_loarm_x, l_loarm_y, l_loarm_z,
|
||||
l_hand_x, l_hand_y, l_hand_z,
|
||||
l_wrist_loc, l_wrist_x, l_wrist_y, l_wrist_z,
|
||||
|
||||
r_clavicle_x, r_clavicle_y, r_clavicle_z,
|
||||
r_uparm_x, r_uparm_y, r_uparm_z,
|
||||
r_loarm_x, r_loarm_y, r_loarm_z,
|
||||
r_hand_x, r_hand_y, r_hand_z,
|
||||
r_wrist_loc, r_wrist_x, r_wrist_y, r_wrist_z,
|
||||
|
||||
l_upleg_x, l_upleg_y, l_upleg_z,
|
||||
l_loleg_x, l_loleg_y, l_loleg_z,
|
||||
l_foot_x, l_foot_y, l_foot_z,
|
||||
|
||||
r_upleg_x, r_upleg_y, r_upleg_z,
|
||||
r_loleg_x, r_loleg_y, r_loleg_z,
|
||||
r_foot_x, r_foot_y, r_foot_z
|
||||
);
|
||||
|
||||
|
||||
type animation_Channel is
|
||||
record
|
||||
Target : access collada.Library.visual_scenes.Transform;
|
||||
Times : access collada.float_Array;
|
||||
Cursor : math.Index := 0;
|
||||
|
||||
Angles : access collada.float_Array;
|
||||
initial_Angle : math.Real;
|
||||
current_Angle : math.Real := 0.0;
|
||||
interp_Delta : math.Real := 0.0;
|
||||
|
||||
initial_Site : math.Vector_3;
|
||||
current_Site : math.Vector_3;
|
||||
site_interp_Delta : math.Vector_3;
|
||||
end record;
|
||||
|
||||
|
||||
type animation_Channels is array (channel_Id) of animation_Channel;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
--- Human item
|
||||
--
|
||||
|
||||
type Item is tagged limited
|
||||
record
|
||||
Mode : human.motion_Mode := Physics;
|
||||
|
||||
Space : gel.Sprite.physics_Space_view;
|
||||
|
||||
bone_Sprites : human.bone_Sprites;
|
||||
|
||||
Joints : human.Joints;
|
||||
controller_Joints : human_types.controller_Joints;
|
||||
|
||||
scene_Joints : human.scene_Joints;
|
||||
root_Joint : collada.Library.visual_scenes.Node_view;
|
||||
|
||||
Model : access openGL.Model.item'class;
|
||||
program_Parameters : aliased skin_program_Parameters;
|
||||
|
||||
Channels : animation_Channels;
|
||||
start_Time : Duration := 0.0;
|
||||
|
||||
Graphics_enabled : Boolean := False;
|
||||
end record;
|
||||
|
||||
|
||||
|
||||
procedure enable_Graphics (Self : in out Item);
|
||||
|
||||
end gel.Human;
|
||||
Reference in New Issue
Block a user