package Swarm_Configuration is

Configuration : Configurations := Single_Globe_In_Orbit;

Initial_No_of_Elements : constant Positive  := 42;

Initial_Swarm_Position : constant Vector_3D := Zero_Vector_3D;

Initual_Edge_Length    : constant Real      := 1.0;

Repulse_Strength           : constant Real :=   1.00;

Repulse_Centre             : constant Real :=   0.12;

Repulse_Steepness          : constant Real :=  30.00;

Unconditional_Repulse_Dist : constant Real :=   0.30;

Attract_Strength           : constant Real :=   0.20;

Attract_Close_Centre       : constant Real :=   0.80;

Attract_Close_Steepness    : constant Real :=  50.00;

Attract_Far_Centre         : constant Real :=   2.00;

Attract_Far_Steepness      : constant Real :=   4.00;

Approach_Strength          : constant Real :=   1.00;

Approach_Steepness         : constant Real :=   1.00;

Max_Approach_Velocity      : constant Real :=   3.00;

Target_Fetch_Range         : constant Real :=   0.03;

Detection_Range            : constant Real :=   3.00;

Comms_Range                : constant Real :=   0.20;

Velocity_Matching_Range    : constant Real :=   0.30;

Velocity_Matching_Strength : constant Real :=   0.05;

Friction                   : constant Real :=   0.02;

No_of_Cores_for_Swarm      : constant Positive := 8;

Max_Assumed_Acceleration   : constant Real  :=  1.50;

Max_Update_Interval        : constant Float :=  0.10;

Charging_Setup         : constant Charging_Setups_R := Charging_Setups (Configuration);

Energy_Globe_Detection : constant Real              := Energy_Globe_Detections (Configuration);

Energy_Globes_Defaults : constant Energy_Globes_A   := Globe_Defaults (Configuration);

Sphere_Increment : constant Vector_3D := (x => 2.0 * Pi / Intented_Framerate / 1000.0,
                                             y => 2.0 * Pi / Intented_Framerate / 1100.0,
                                             z => 2.0 * Pi / Intented_Framerate / 120.0);

function Inter_Swarm_Attraction   
(
x
: Distances)
return Acc_Scalar;

function Inter_Swarm_Repulsion    
(
x
: Distances)
return Acc_Scalar;

function Inter_Swarm_Acceleration 
(
x
: Distances)
return Acc_Scalar;

function Approach_Acceleration    
(
Velocity_Towards_Goal
: Real)
return Acc_Scalar;

function Approach_Acceleration    
(
x
: Distances;
Velocity_Towards_Goal
: Real)
return Acc_Scalar;

function Velocity_Matching 
(
Velocity, Velocity_Difference
: Velocities)
return Accelerations;