#include <skylarks_all.h>

Public Member Functions
	Skylark_Adult (int x, int y, double size, int age, SkTerritories Terrs, Landscape L, Skylark_Population_Manager *SPM, int bx, int by, int mh)

virtual void	ReInit (int x, int y, double size, int age, SkTerritories Terrs, Landscape L, Skylark_Population_Manager *SPM, int bx, int by, int mh)

virtual	~Skylark_Adult ()

virtual void	CopyMyself (int a_sktype)

Public Member Functions inherited from Skylark_Base
	Skylark_Base (int x, int y, SkTerritories Terrs, Landscape L, Skylark_Population_Manager *SPM, int bx, int by, int mh)

virtual void	ReInit (int x, int y, SkTerritories Terrs, Landscape L, Skylark_Population_Manager *SPM, int bx, int by, int mh)

virtual double	On_FoodSupply (double)

void	AddStriglingMort (int lifestage)

virtual int	WhatState ()

bool	InSquare (rectangle R)

Public Member Functions inherited from TAnimal
unsigned	SupplyFarmOwnerRef ()

AnimalPosition	SupplyPosition ()

APoint	SupplyPoint ()

int	SupplyPolygonRef ()

int	Supply_m_Location_x ()

int	Supply_m_Location_y ()

virtual void	KillThis ()

virtual void	CopyMyself ()

void	SetX (int a_x)

void	SetY (int a_y)

	TAnimal (int x, int y, Landscape *L)

virtual void	BeginStep (void)
	BeingStep behaviour - must be implemented in descendent classes. More...

virtual void	Step (void)
	Step behaviour - must be implemented in descendent classes. More...

virtual void	EndStep (void)
	EndStep behaviour - must be implemented in descendent classes. More...

virtual void	ReinitialiseObject (int x, int y, Landscape *L)
	Used to re-use an object - must be implemented in descendent classes. More...

virtual void	Dying ()

void	CheckManagement (void)

void	CheckManagementXY (int x, int y)

virtual bool	OnFarmEvent (FarmToDo)

Public Member Functions inherited from TALMaSSObject
int	GetCurrentStateNo ()
	Returns the current state number. More...

void	SetCurrentStateNo (int a_num)
	Sets the current state number. More...

bool	GetStepDone ()
	Returns the step done indicator flag. More...

void	SetStepDone (bool a_bool)
	Sets the step done indicator flag. More...

virtual void	ReinitialiseObject ()
	Used to re-use an object - must be implemented in descendent classes. More...

	TALMaSSObject ()
	The constructor for TALMaSSObject. More...

virtual	~TALMaSSObject ()
	The destructor for TALMaSSObject. More...

void	OnArrayBoundsError ()
	Used for debugging only, tests basic object properties. More...

Public Attributes
bool	Paired

Public Attributes inherited from Skylark_Base
double	m_pesticide_accumulation

double	m_pcide_conc

TTypesOfSkState	m_CurrentSkState

int	Age

double	m_Size

int	m_Born_x

int	m_Born_y

int	m_MyHome
	The vegetation type where the skylark was born. More...

SkTerritories *	m_OurTerritories

Skylark_Population_Manager *	m_OurPopulationManager

Protected Member Functions
virtual double	RemoveEM (double food)

double	GetVegHindrance (int PolyRef)

double	GetWeatherHindrance ()

bool	GetBadWeather ()
	Extreme weather conditions check. More...

Protected Member Functions inherited from Skylark_Base
bool	DailyMortality (int mort)

virtual void	PesticideResponse ()

Protected Member Functions inherited from TAnimal
void	CorrectWrapRound ()
	Corrects wrap around co-ordinate problems. More...

Protected Attributes
int	GoodWeather

bool	BSuccess

double	MyExtractEff

int	m_pesticide_affected

skTerritory_struct	MyTerritory

vector< APoint > *	m_aTerrlist

Protected Attributes inherited from TAnimal
int	m_Location_x

int	m_Location_y

Landscape *	m_OurLandscape

Protected Attributes inherited from TALMaSSObject
int	m_CurrentStateNo
	The basic state number for all objects - '-1' indicates death. More...

bool	m_StepDone
	Indicates whether the iterative step code is done for this timestep. More...

Constructor & Destructor Documentation

◆ Skylark_Adult()

Skylark_Adult::Skylark_Adult	(	int	x,
		int	y,
		double	size,
		int	age,
		SkTerritories *	Terrs,
		Landscape *	L,
		Skylark_Population_Manager *	SPM,
		int	bx,
		int	by,
		int	mh
	)

                                                               : Skylark_Base(x, y, Terrs, L, SPM, bx, by, mh) {
     m_Size = size;
     Age = age;
     BSuccess = false;
     MyExtractEff = (0.90 + double(random(21) / 100.0)) * MeanExtractionRatePerMinute;
     GoodWeather = 0;
     Paired = false;
     MyTerritory.ref = -1;
     m_aTerrlist = new vector<APoint>;
     m_pesticide_affected = -1;
 }

References Skylark_Base::Age, BSuccess, GoodWeather, m_aTerrlist, m_pesticide_affected, Skylark_Base::m_Size, MeanExtractionRatePerMinute, MyExtractEff, MyTerritory, Paired, and skTerritory_struct::ref.

◆ ~Skylark_Adult()

Skylark_Adult::~Skylark_Adult ( )

virtual

                               {
     delete m_aTerrlist;
 }

References m_aTerrlist.

Member Function Documentation

◆ CopyMyself()

void Skylark_Adult::CopyMyself ( int a_sktype )

virtual

                                            {
   AdultSkylark_struct * aps;
   aps = new AdultSkylark_struct;
   aps->x = m_Location_x;
   aps->y = m_Location_y;
   aps->size = m_Size;
   aps->Terrs = m_OurTerritories;
   aps->L = m_OurLandscape;
   aps->sex = false;
   aps->age = 0;
   aps->bx = m_Born_x;
   aps->mh = m_MyHome;
   aps->by = m_Born_y;
   m_OurPopulationManager->CreateObjects( a_sktype, this, NULL, aps, -1 );
   // object will be destroyed by death state
   // but must let Dad know anyway
   delete aps;
 }

References AdultSkylark_struct::age, Skylark_struct::bx, Skylark_struct::by, Skylark_Population_Manager::CreateObjects(), Skylark_struct::L, Skylark_Base::m_Born_x, Skylark_Base::m_Born_y, TAnimal::m_Location_x, TAnimal::m_Location_y, Skylark_Base::m_MyHome, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, Skylark_Base::m_Size, Skylark_struct::mh, AdultSkylark_struct::sex, AdultSkylark_struct::size, Skylark_struct::Terrs, Skylark_struct::x, and Skylark_struct::y.

Referenced by Skylark_Population_Manager::Catastrophe().

◆ GetBadWeather()

bool Skylark_Adult::GetBadWeather ( )

protected

Extreme weather conditions check.

                                    {
     //return m_OurPopulationManager->IsBadWeather();
     return false;
 }

Referenced by Skylark_Female::st_Arriving(), Skylark_Male::st_Arriving(), Skylark_Female::st_BuildingUpResources(), Skylark_Female::st_Finding_Territory(), Skylark_Female::st_Floating(), Skylark_Male::st_Floating(), Skylark_Female::st_Flocking(), Skylark_Male::st_Flocking(), Skylark_Female::st_TempLeavingArea(), and Skylark_Male::st_TempLeavingArea().

◆ GetVegHindrance()

double Skylark_Adult::GetVegHindrance ( int PolyRef )

protected

                                                    {
 #ifdef __CJTDebug_5
   if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
 #endif
   /* CJT Changed in favour of a function of veg density double veg_biomass = m_OurLandscape->SupplyVegBiomass(polyref);
   double veg_height = m_OurLandscape->SupplyVegHeight(polyref); int bio = (int)floor(0.5+veg_biomass/(VeryHighDensityVeg/
   double(HindranceBiomassCategories))); // 0-24, 25-49, 50-74,74-100 categories
   int hei=(int)floor(0.5+veg_height/(100.0/double(HindranceHeightCategories)));
   if (hei>HindranceHeightCategories-1) hei=HindranceHeightCategories-1;
   if (bio>HindranceBiomassCategories-1) bio=HindranceBiomassCategories-1; return VegHindrance[hei][bio]; */
   if ( m_OurLandscape->SupplyVegPatchy( polyref ) ) return 1.0;
   int veg_height = ( int )floor( 0.5 + m_OurLandscape->SupplyVegHeight( polyref ) );
   if ( veg_height < 26 ) return 1.0;
   int veg_dens = m_OurLandscape->SupplyVegDensity( polyref );
   //    double vh = ( VegHindranceH[ veg_height ] * 2 + VegHindranceD[ veg_dens ] ) / 3.0;
   //double vh = (0.33*( DensityScore[ veg_dens ] + 2 * HeightScore[ ( int )veg_height ] ) * 0.33333333)+0.67;
   double vh = ( VegHindranceD[ veg_dens ] + 2 * VegHindranceH[ veg_height ] ) * 0.3333;
 #ifdef __TRAMLINES_ON
   // Tramlines affect the amount of veg hindrance only
   // vh must be increased by a factor corresponding to the tramline effect
   // IF USING SKLARK SCRAPES !
   if ( m_OurLandscape->SupplySkScrapes( polyref )) {
     vh += ( ( 1.0 - vh ) * cfg_tramline_foraging.value() );
   }
   else if ( m_OurLandscape->SupplyHasTramlines( polyref )) {
     vh += ( ( 1.0 - vh ) * cfg_tramline_foraging.value() );
   }
 #endif
   return vh;
 }

References cfg_tramline_foraging, TAnimal::m_OurLandscape, Landscape::SupplyHasTramlines(), Landscape::SupplySkScrapes(), Landscape::SupplyVegDensity(), Landscape::SupplyVegHeight(), Landscape::SupplyVegPatchy(), VegHindranceD, and VegHindranceH.

Referenced by Skylark_Male::GetFood().

◆ GetWeatherHindrance()

double Skylark_Adult::GetWeatherHindrance ( )

protected

                                           {
 #ifdef __CJTDebug_5
   if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
 #endif
     double hind;
     int rain = (int) m_OurLandscape->SupplyRain()/2;
     // Assume half of this falls at night
     // Make sure the indices remain in bounds
     if ( rain > 10 ) rain = 10;
     int temp = (int) (floor( 0.5 + m_OurLandscape->SupplyTemp() ));
     if ( temp < 0 ) temp = 0;
     if ( temp > 20 ) temp = 20;
     hind = RainHindrance[rain];
     hind *= TempHindrance[ temp ];
     return hind;
 }

References TAnimal::m_OurLandscape, RainHindrance, Landscape::SupplyRain(), Landscape::SupplyTemp(), and TempHindrance.

Referenced by Skylark_Male::GetFood().

◆ ReInit()

void Skylark_Adult::ReInit	(	int	x,
		int	y,
		double	size,
		int	age,
		SkTerritories *	Terrs,
		Landscape *	L,
		Skylark_Population_Manager *	SPM,
		int	bx,
		int	by,
		int	mh
	)

virtual

Reimplemented in Skylark_Male, and Skylark_Female.

                                                                                                                                                               {
     Skylark_Base::ReInit(x, y, Terrs, L, SPM, bx, by, mh);
     m_Size = size;
     Age = age;
     BSuccess = false;
     MyExtractEff = (0.90 + double(random(21) / 100.0)) * MeanExtractionRatePerMinute;
     GoodWeather = 0;
     Paired = false;
     MyTerritory.ref = -1;
     m_aTerrlist = new vector<APoint>;
     m_pesticide_affected = -1;
 }

References Skylark_Base::Age, BSuccess, GoodWeather, m_aTerrlist, m_pesticide_affected, Skylark_Base::m_Size, MeanExtractionRatePerMinute, MyExtractEff, MyTerritory, Paired, skTerritory_struct::ref, and Skylark_Base::ReInit().

Referenced by Skylark_Female::ReInit(), and Skylark_Male::ReInit().

◆ RemoveEM()

double Skylark_Adult::RemoveEM ( double food )

protectedvirtual

                                             {
 #ifdef __CJTDebug_5
   if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
 #endif
   // remove metabolic requirements
   double used = m_OurPopulationManager->SupplyEMi();
 #ifdef __PESTICIDE_RA_ADULT
     // If using pesticide risk assessment then the total mg of pesticide collected that day are now in m_pcide
     // But, there well be more than we wanted, so now we take a mean as mg/kcal resource
     m_pcide_conc = m_pcide/food;
     // Note there is an assumption here that they only eat insects. We know this to be incorrect so depending upon the
     // aim of the assessment the line below may need to be modified (e.g. by scaling by the relative calorific content of
     // insects compared to plant matter.
     m_pesticide_accumulation = m_pesticide_accumulation+(m_pcide_conc*(used));
 #endif
   food -=used;
   if ( food < 0 ) food = 0;
   return food; // Food still in gdw insects
 }