Skylark_Clutch Class Reference

#include <skylarks_all.h>

Inheritance diagram for Skylark_Clutch:

Public Member Functions
void	BeginStep (void) override
	BeingStep behaviour - must be implemented in descendent classes. More...
void	Step (void) override
	Step behaviour - must be implemented in descendent classes. More...
void	EndStep (void) override
	EndStep behaviour - must be implemented in descendent classes. More...
	Skylark_Clutch (Skylark_Female *Mum, SkTerritories *Terrs, Landscape *L, int NoEggs, int x, int y, int mh, Skylark_Population_Manager *SPM)
virtual void	ReInit (Skylark_Female *Mum, SkTerritories *Terrs, Landscape *L, int NoEggs, int x, int y, int mh, Skylark_Population_Manager *SPM)
void	OnMumGone ()
void	AddEgg ()
void	StartDeveloping ()
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 (const int lifestage) const
int	WhatState () override
	Returns the objects current state number. More...
bool	InSquare (rectangle R) const
Public Member Functions inherited from TAnimal
	TAnimal (int x, int y, Landscape *L)
	The TAnimal constructor saving the x,y, location and the landscape pointer. More...
	TAnimal (int x, int y)
	The TAnimal constructor saving the x,y used if landscape is already set. More...
void	SetGuardMapIndex (int a_index_x, int a_index_y)
	Set the guard map index, this is used to avoid two animals operating in the same location when using multithread. More...
unsigned	SupplyFarmOwnerRef () const
	Get the current location farm ref if any. More...
AnimalPosition	SupplyPosition () const
	Returns the objects location and habitat type and veg type. More...
APoint	SupplyPoint () const
	Returns the objects location in ALMaSS coordinates. More...
int	SupplyPolygonRef () const
	Returns the polygon reference where the object is located. More...
TTypesOfLandscapeElement	SupplyPolygonType () const
	Returns the polygon type where the object is located. More...
int	Supply_m_Location_x () const
	Returns the ALMaSS x-coordinate. More...
int	Supply_m_Location_y () const
	Returns the ALMaSS y-coordinate. More...
int	SupplyGuardCellX () const
	Returns the x-index to the guard cell. More...
int	SupplyGuardCellY () const
	Returns the y-index to the guard cell. More...
int	SupplyAge () const
	Returns the animals age in days. More...
void	SetAge (int a_age)
	Sets the animals age in days. More...
virtual void	KillThis ()
	Sets all parameters ready for object destruction. More...
virtual void	CopyMyself ()
	Used to copy the object details to another in descendent classes. More...
void	SetX (const int a_x)
	Sets the x-coordinate. More...
void	SetY (const int a_y)
	Sets the y-coordinate. More...
virtual void	ReinitialiseObject (int a_x, int a_y, Landscape *a_l_ptr)
virtual void	ReinitialiseObject (int a_x, int a_y)
	Used to re-use an object - must be implemented in descendent classes. More...
virtual void	Dying ()
	A wrapped for KillThis - ideally should not be used. More...
void	CheckManagement ()
	Used to start a check for any management related effects at the objects current location. More...
void	CheckManagementXY (int a_x, int a_y)
	Used to start a check for any management related effects at x,y. More...
Public Member Functions inherited from TALMaSSObject
int	GetCurrentStateNo () const
	Returns the current state number. More...
void	SetCurrentStateNo (int a_num)
	Sets the current state number. More...
bool	GetStepDone () const
	Returns the step done indicator flag. More...
void	SetStepDone (bool a_bool)
	Sets the step done indicator flag. More...
void	ReinitialiseObjectBase ()
	Used to initialise an object. More...
	TALMaSSObject ()
	The constructor for TALMaSSObject. More...
virtual	~TALMaSSObject ()=default
	The destructor for TALMaSSObject. More...

Public Attributes
int	Clutch_Size
Skylark_Female *	Mother
Public Attributes inherited from Skylark_Base
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
int	st_Developing ()
int	st_Hatching ()
void	st_Dying ()
bool	OnFarmEvent (FarmToDo event) override
	Must be reimplemented if used in descendent classes. Sets the action on a management event. More...
Protected Member Functions inherited from TAnimal
void	CorrectWrapRound ()
	Corrects wrap around co-ordinate problems. More...

Protected Attributes
int	MinDegrees
int	m_baddays
Protected Attributes inherited from TAnimal
int	m_Location_x
	The objects ALMaSS x coordinate. More...
int	m_Location_y
	The objects ALMaSS y coordinate. More...
int	m_guard_cell_x
	The index x to the guard cell. More...
int	m_guard_cell_y
	The index y to the guard cell. More...
int	m_AgeDays {0}
	To hold the age in days. More...
PesticideToxicity	m_my_pesticide
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...

Additional Inherited Members
Static Public Member Functions inherited from TAnimal
static void	SetSimulationWidth (int a_value)
	Sets the simulation width. More...
static void	SetSimulationHeight (int a_value)
	Sets the simulation height. More...
static void	SetDayInYear (int a_value)
	Sets the day in year attribute. More...
static void	SetOurLandscape (Landscape *a_value)
	Sets the landscape pointer. More...
static void	SetTempToday (double a_value)
	Sets the temperature today attribute. More...
Static Public Member Functions inherited from TALMaSSObject
static void	OnArrayBoundsError ()
	Used for debugging only, tests basic object properties. More...
Static Protected Member Functions inherited from Skylark_Base
static bool	DailyMortality (int mort)
Static Protected Attributes inherited from TAnimal
static Landscape *	m_OurLandscape = nullptr
	A pointer to the landscape object shared with all TAnimal objects. More...
static int	m_SimulationWidth = 0
	A static member for the simulation width because it is often used by descendent classes. More...
static int	m_SimulationHeight = 0
	A static member for the simulation height because it is often used by descendent classes. More...
static double	m_TemperatureToday = 0.0
	A holder for the temperature today shared with all TAnimal objects. More...
static int	m_DayInYear = 0
	A holder for the day in year shared with all TAnimal objects. More...

Constructor & Destructor Documentation

Skylark_Clutch()

Skylark_Clutch::Skylark_Clutch	(	Skylark_Female *	Mum,
		SkTerritories *	Terrs,
		Landscape *	L,
		int	NoEggs,
		int	x,
		int	y,
		int	mh,
		Skylark_Population_Manager *	SPM
	)

                                                                                    : Skylark_Base(x, y, Terrs, L, SPM, x, y, m_MyHome) {
    Age = 0;
    Clutch_Size = NoEggs;
    MinDegrees = 0;
    Mother = Mum;
    m_baddays = 0;
}

References Skylark_Base::Age, Clutch_Size, m_baddays, MinDegrees, and Mother.

Member Function Documentation

AddEgg()

void Skylark_Clutch::AddEgg ( )

inline

{ Clutch_Size++; }

Referenced by Skylark_Female::st_Laying().

BeginStep()

void Skylark_Clutch::BeginStep ( void  )

overridevirtual

BeingStep behaviour - must be implemented in descendent classes.

Reimplemented from TALMaSSObject.

{ CheckManagement(); }

References TAnimal::CheckManagement().

EndStep()

void Skylark_Clutch::EndStep ( void  )

overridevirtual

EndStep behaviour - must be implemented in descendent classes.

Reimplemented from TALMaSSObject.

                                 {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    if (m_CurrentSkState == toss_Destroy) return;
    switch (m_CurrentSkState)
    {
    case toss_Initiation:
        break;
    case toss_Developing: // Develop
        switch (st_Developing())
        {
        case 2:
#ifdef TEST_ISSUE_DEATH_WARRANT
          printf( "Skylark_Clutch::EndStep() st_Developing() %d\n", ( int )g_date->Date() );
#endif
            m_CurrentSkState = toss_CDying; // die
            break;
        case 1:
            m_CurrentSkState = toss_Hatching; // hatch
            break;
        case 0:
            break;
        }
        break;
    case toss_Hatching: // Hatching
        switch (st_Hatching())
        {
        case 0:
#ifdef TEST_ISSUE_DEATH_WARRANT
          printf( "Skylark_Clutch::EndStep() st_Hatching() %d\n", ( int )g_date->Date() );
#endif
            m_CurrentSkState = toss_CDying;
            break;
        case 1: // Successful hatch
            m_CurrentSkState = toss_Destroy; // will kill it at end of step!
            m_CurrentStateNo = -1;
            m_StepDone = true; // otherwise it will loop forever
            break;
        }
        break;
    case toss_CDying: // Dying
        st_Dying();
        m_StepDone = true;
        break;
    default:
        g_msg->Warn("Skylark_Clutch::EndStep(): Unknown state: ", m_CurrentSkState);
        exit(0);
        break;
    }
}

References Calendar::Date(), g_date, g_msg, Skylark_Base::m_CurrentSkState, TALMaSSObject::m_CurrentStateNo, TALMaSSObject::m_StepDone, st_Developing(), st_Dying(), st_Hatching(), and MapErrorMsg::Warn().

OnFarmEvent()

bool Skylark_Clutch::OnFarmEvent ( FarmToDo  )

overrideprotectedvirtual

Must be reimplemented if used in descendent classes. Sets the action on a management event.

Reimplemented from TAnimal.

                                               {
    switch (event)
    {
    case sleep_all_day:
        break;
// Here begins soil cultivation and cutting mortality
    case autumn_plough:
    case stubble_plough:
    case stubble_cultivator_heavy:
    case heavy_cultivator_aggregate:
    case autumn_harrow:
    case preseeding_cultivator:
    case preseeding_cultivator_sow:
    case autumn_roll:
    case autumn_sow:
    case autumn_sow_with_ferti:
    case winter_plough:
    case deep_ploughing:
    case spring_plough:
    case spring_harrow:
    case shallow_harrow:
    case spring_roll:
    case spring_sow:
    case spring_sow_with_ferti:
    case fp_liquidNH3:
    case fp_greenmanure:
    case row_cultivation:
    case hilling_up:
    case harvest:
    case green_harvest:
    case harvestshoots:
    case harvest_bushfruit:
    case cut_to_hay:
    case cut_to_silage:
    case straw_chopping:
    case hay_turning:
    case autumn_or_spring_plough:
    case burn_straw_stubble:
    case burn_top: 
    case flammebehandling:
    case mow:
    case bed_forming:
    case flower_cutting:
    case bulb_harvest:
    case pruning:
    case shredding:
    case winter_harrow:
    case suckering:
    case summer_harrow:
    case summer_plough:
    case summer_sow:
#ifdef TEST_ISSUE_DEATH_WARRANT
      printf( "Skylark_Clutch::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
        m_CurrentSkState = toss_CDying;
        break;
// Here begins spray mortality
    case fp_npks:
    case fp_npk:
    case fp_pk:
    case fp_k:
    case fp_p:
    case fp_ammoniumsulphate:
    case fp_manganesesulphate:
    case fp_manure:
    case fp_sludge:
    case fp_rsm:
    case fp_calcium:
    case fp_cu:
    case fp_n:
    case fp_nc:
    case fp_nk:
    case fp_ns:
    case fp_pks:
    case fp_sk:
    case fp_boron:
    case fa_npks:
    case fa_npk:
    case fa_n: 
    case fa_boron:
    case fa_cu:
    case fa_nk:
    case fa_pks:
    case fa_pk:
    case fa_k:
    case fa_p:
    case fa_sk:
    case fa_ammoniumsulphate:
    case fa_manganesesulphate:
    case fa_manure:
    case fa_greenmanure:
    case fa_sludge:
    case fa_rsm:
    case fa_calcium:
    case herbicide_treat:
    case growth_regulator:
    case fungicide_treat:
    case insecticide_treat:
    case org_insecticide:
    case trial_insecticidetreat:
    case syninsecticide_treat:
    case org_fungicide:
    case org_herbicide:
        if (g_random_fnc(1000) < cfg_insecticide_direct_mortE.value())
        {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_Female::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
            m_CurrentSkState = toss_CDying;
        }
        break;
    case fp_slurry:
    case fa_slurry:
    case swathing: /*\todo why are these three different from other spray/cultivation effects? */
        if (g_random_fnc(100) < 2)
        {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_Clutch::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
            m_CurrentSkState = toss_CDying;
        }
        break;
// Here begins strigling mortality
    case strigling_sow:
    case strigling_hill:
    case strigling:
#ifndef __NoStriglingEffect
        if (g_random_fnc(100) < cfg_strigling_clutch.value())
        {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_Clutch::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
            m_CurrentSkState = toss_CDying;
            AddStriglingMort(1);
        }
#endif
        break;
// Here begins grazing mortality
    case cattle_out:
        if (m_OurLandscape->SupplyGrazingPressure(m_Location_x, m_Location_y) > 0)
            if (g_random_fnc(1000) < 20)
            {
                // was 20
#ifdef TEST_ISSUE_DEATH_WARRANT
          printf( "Skylark_Clutch::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
                m_CurrentSkState = toss_CDying;
            }
        break;
    case cattle_out_low:
        if (m_OurLandscape->SupplyGrazingPressure(m_Location_x, m_Location_y) > 0)
            if (g_random_fnc(1000) < 5)
            {
                //was 5
#ifdef TEST_ISSUE_DEATH_WARRANT
          printf( "Skylark_Clutch::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
                m_CurrentSkState = toss_CDying;
            }
        break;
    case pigs_out:
#ifndef __NoPigsOutEffect
        if (g_random_fnc(100) < 20)
        {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_Clutch::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
            m_CurrentSkState = toss_CDying;
        }
#endif
        break;
//Here begins non-mortality events
        /*\todo should these be reassessed? */
    case product_treat:
    case glyphosate:
    case biocide:
    case molluscicide:
    case last_treatment:
    case pheromone:
    case water:
    case hay_bailing:
    case stubble_harrowing:
    case cut_weeds:
    case manual_weeding:
    case straw_covering:
    case straw_removal:
    case fiber_removal:
    case fiber_covering:
    case trial_control:
    case trial_toxiccontrol:
        break;
    default:
        g_land->Warn("Skylark_Clutch::OnFarmEvent(): Unknown event type:", m_OurLandscape->EventtypeToString(event));
        exit(1);
    }
    if (m_CurrentSkState == toss_CDying) return true;
    return false;
}

References Skylark_Base::AddStriglingMort(), autumn_harrow, autumn_or_spring_plough, autumn_plough, autumn_roll, autumn_sow, autumn_sow_with_ferti, bed_forming, biocide, bulb_harvest, burn_straw_stubble, burn_top, cattle_out, cattle_out_low, cfg_insecticide_direct_mortE, cfg_strigling_clutch, cut_to_hay, cut_to_silage, cut_weeds, Calendar::Date(), deep_ploughing, Landscape::EventtypeToString(), fa_ammoniumsulphate, fa_boron, fa_calcium, fa_cu, fa_greenmanure, fa_k, fa_manganesesulphate, fa_manure, fa_n, fa_nk, fa_npk, fa_npks, fa_p, fa_pk, fa_pks, fa_rsm, fa_sk, fa_sludge, fa_slurry, fiber_covering, fiber_removal, flammebehandling, flower_cutting, fp_ammoniumsulphate, fp_boron, fp_calcium, fp_cu, fp_greenmanure, fp_k, fp_liquidNH3, fp_manganesesulphate, fp_manure, fp_n, fp_nc, fp_nk, fp_npk, fp_npks, fp_ns, fp_p, fp_pk, fp_pks, fp_rsm, fp_sk, fp_sludge, fp_slurry, fungicide_treat, g_date, g_land, g_random_fnc(), glyphosate, green_harvest, growth_regulator, harvest, harvest_bushfruit, harvestshoots, hay_bailing, hay_turning, heavy_cultivator_aggregate, herbicide_treat, hilling_up, insecticide_treat, last_treatment, Skylark_Base::m_CurrentSkState, TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, manual_weeding, molluscicide, mow, org_fungicide, org_herbicide, org_insecticide, pheromone, pigs_out, preseeding_cultivator, preseeding_cultivator_sow, product_treat, pruning, row_cultivation, shallow_harrow, shredding, sleep_all_day, spring_harrow, spring_plough, spring_roll, spring_sow, spring_sow_with_ferti, straw_chopping, straw_covering, straw_removal, strigling, strigling_hill, strigling_sow, stubble_cultivator_heavy, stubble_harrowing, stubble_plough, suckering, summer_harrow, summer_plough, summer_sow, Landscape::SupplyGrazingPressure(), swathing, syninsecticide_treat, trial_control, trial_insecticidetreat, trial_toxiccontrol, CfgInt::value(), Landscape::Warn(), water, winter_harrow, and winter_plough.

OnMumGone()

void Skylark_Clutch::OnMumGone

(

void

)

                                   {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE )
    DEADCODEError();
#endif
    // the clutch cannot survive so go directly to die and do not pass go
    Mother = nullptr;
#ifdef TEST_ISSUE_DEATH_WARRANT
  printf( "Skylark_Clutch::OnMumGone() %d\n", ( int )g_date->Date() );
#endif
    m_CurrentSkState = toss_Destroy; // will kill it at end of step!
    m_CurrentStateNo = -1;
}

References Calendar::Date(), g_date, Skylark_Base::m_CurrentSkState, TALMaSSObject::m_CurrentStateNo, and Mother.

Referenced by Skylark_Female::OnMateDying(), Skylark_Female::OnMateHomeless(), Skylark_Female::st_Dying(), Skylark_Female::st_GivingUpTerritory(), Skylark_Female::st_StartingNewBrood(), Skylark_Female::st_StoppingBreeding(), and Skylark_Female::Step().

ReInit()

void Skylark_Clutch::ReInit ( Skylark_Female *  Mum, SkTerritories *  Terrs, Landscape *  L, int  NoEggs, int  x, int  y, int  mh, Skylark_Population_Manager *  SPM  )

virtual

                                                                                 {
    Skylark_Base::ReInit(x, y, Terrs, L, SPM, x, y, a_MyHome);
    Age = 0;
    Clutch_Size = NoEggs;
    MinDegrees = 0;
    Mother = Mum;
    m_baddays = 0;
}

References Skylark_Base::Age, Clutch_Size, m_baddays, MinDegrees, Mother, and Skylark_Base::ReInit().

st_Developing()

int Skylark_Clutch::st_Developing ( )

protected

                                  {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    if (DailyMortality(ClutchMortProb))
    {
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1001 );
#endif
        return 2; //transfer to state die
    }
    if (Age > 0) // No development on the first day when just laid
    {
        // Timing : This function is called once at the end of each day before
        // the next day
        // Develop according to ambient temperature, and how long the female
        // is incubating for
        const int incubated_time = Mother->Supply_NestTime(); // this includes night
        const int off_nest_time = 24 * 60 - incubated_time;
        //double Rain = m_OurLandscape->SupplyRain();
        //int Daylength = m_OurLandscape->SupplyDaylength();
 
        //m_OurPopulationManager->WriteToTest2File(m_OurLandscape->SupplyDayInYear(),off_nest_time);
        // they start at EggTemp degrees and cool to 'cool'
        const double cool_rate_pmin = Cooling_Rate_Eggs / 60.0;
        double Temp = m_OurLandscape->SupplyTemp(); // 9.97 = COrrection for day/night temps in �tjylland
        if (Temp >= EggTemp) Temp = EggTemp - 0.000001;
 
        // If off_nest_time > daylength/2 then the birds are spending more time off the nest than on.
        // in this case the trip length must go up
        //double TripNumber=cfg_FoodTripsPerDay.value();
        const double TripLength = cfg_sk_triplength.value();
        /*
            if ( off_nest_time >= ( Daylength - 10 ) ) { // -10 allows us not to get a division by zero later
                if ( ++m_baddays > 5 ) {
                    #ifdef __SKPOM
                            m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1003 );
                    #endif
                    return 2; //TransferToState(Die);
                }
            } else {
                  if ( off_nest_time > ( Daylength / 2.0 ) ) {
                    // getting cold, so assume a different strategy or maximising the number of on nest times of 10 minutes
                    int on_nest = Daylength - off_nest_time;
                    TripNumber = on_nest / 10.0;
                    TripLength = off_nest_time / TripNumber;
                  }
                  else {
                        TripLength = 10;
                  }
            }
            */
        //
        // We have the time incubated - but this includes re-warming time. So make
        // the assumption that warming/cooling are linear and equal rates
        // Now calculate the minimum temperature
        //    double cool = EggTemp - ( ( cool_rate_pmin * TripLength ) * ( ( EggTemp - Temp ) / 2.0 ) );
        double cool = EggTemp - cool_rate_pmin * TripLength * ((EggTemp - Temp) / 2.0);
        // This cannot be lower than ambient (There is a problem here since ambient
        // temperature when the eggs are not incubated is higher than the mean used
        // here because foraging is in the daytime
        if (cool < Temp) cool = Temp;
        // Now calculate how many minutes were spent cooling down to this temp (if
        // cool is higher than Temp then cooltime should be the same as TripLength
        // Next line to prevent overflow
        const double cooltime = (EggTemp - cool) / (cool_rate_pmin * ((EggTemp - Temp) / 2.0));
        // Eggs will spend incubated time-cooltime at EggTemp, off_nest_time-cooltime
        // at cool, and 2xcooltime at the mean of EggTemp and cool
        const double AverageOffNestTemp = (cool + EggTemp) / 2.0;
        /* if ( Rain > 5 ) { MinDegrees += ( ( 24 * 60 ) - Daylength ) * ( EggTemp - MD_Threshold ); if ( m_baddays++ > 5 ) {
        m_OurPopulationManager->WriteToTest2File( m_OurLandscape->SupplyDayInYear(), 1009 );
        return 2; //TransferToState(Die); } } else */
        {
            MinDegrees += static_cast<int>((incubated_time - cooltime * 2.0) * (EggTemp - MD_Threshold)); // took *2 away
            double offnesttemp = cool - MD_Threshold;
            if (offnesttemp < 0) offnesttemp = 0; // No development, rather than minus
            MinDegrees += static_cast<int>((off_nest_time - cooltime) * offnesttemp);
            double transitiontemp = static_cast<int>(AverageOffNestTemp) - MD_Threshold;
            if (transitiontemp < 0) transitiontemp = 0; // No development, rather than minus
            MinDegrees += static_cast<int>(2.0 * cooltime * transitiontemp); // was 1.0 - this change assumes immediate re-heating
        }
        /* double scalingfactor = 1.0; int Daylength = m_OurLandscape->SupplyDaylength( );
        int daytimeonnest=Daylength-off_nest_time; double Rain = m_OurLandscape->SupplyRain(); if (Rain >10) {
        MinDegrees+=(24*60)-Daylength; if (m_baddays++>5) {
        m_OurPopulationManager->WriteToTest2File( m_OurLandscape->SupplyDayInYear(), 1009 ); return 2; //TransferToState(Die); } }
        else { if ((daytimeonnest * scalingfactor) >= off_nest_time) { MinDegrees+=24*60;  // No problem, got all day } else {
        if (daytimeonnest<=0) { MinDegrees+=incubated_time; if (m_baddays++>5) {
        m_OurPopulationManager->WriteToTest2File( m_OurLandscape->SupplyDayInYear(), 1009 ); return 2; //TransferToState(Die);
        }; // This counter just keeps going up until death } else { // Here we have used some time being cold, but not too much
        int uncompensatedtime=off_nest_time-(daytimeonnest*scalingfactor);
        MinDegrees+=(24*60)-uncompensatedtime;  // Only part of the day } } } */
    }
 
    // Have we achieved enough minute degrees
    if (MinDegrees > MD_Hatch)
    {
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1(m_OurLandscape->SupplyDayInYear(),Age);
#endif
        return 1; //TransferToState(Hatch);
    } // if they reach the age of 18 they die if not hatched
    if (Age == 18)
    {
#ifdef __SKPOM
    m_OurPopulationManager->WriteSKPOM1( m_OurLandscape->SupplyDayInYear(), 1002 );
#endif
        return 2; //TransferToState(Die);
    }
    Age++;
    return 0;
}

References Skylark_Base::Age, cfg_sk_triplength, ClutchMortProb, Cooling_Rate_Eggs, Skylark_Base::DailyMortality(), EggTemp, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, MD_Hatch, MD_Threshold, MinDegrees, Mother, Skylark_Female::Supply_NestTime(), Landscape::SupplyDayInYear(), Landscape::SupplyTemp(), CfgFloat::value(), and Skylark_Population_Manager::WriteSKPOM1().

Referenced by EndStep().

st_Dying()

void Skylark_Clutch::st_Dying ( void  )

protected

                              {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    // Timing: Zero time
    // Only called before object is destroyed
    if (Mother) Mother->OnClutchDeath();
    m_CurrentSkState = toss_Destroy; // will kill it at end of step!
    m_CurrentStateNo = -1;
}

References Skylark_Base::m_CurrentSkState, TALMaSSObject::m_CurrentStateNo, Mother, and Skylark_Female::OnClutchDeath().

Referenced by EndStep().

st_Hatching()

int Skylark_Clutch::st_Hatching ( )

protected

                                {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    // Timing: Occurs at the end of a day (e.g. midnight-1 minute)
    // Must create Clutch_Size number of Skylark_Hatchling Objects
    // They tell Mother that they have been created when they exist in the system
 
    if (Mother->Paired)
    {
        const auto Ch = new Nestling_struct;
        Ch->Dad = Mother->MyMate; // Needs a pointer to dad not mum
        Ch->x = m_Location_x;
        Ch->y = m_Location_y;
        Ch->L = m_OurLandscape;
        Ch->Terrs = m_OurTerritories;
        Ch->bx = m_Born_x;
        Ch->by = m_Born_y;
        Ch->mh = m_MyHome;
#ifdef __CJTDebug_7
        if (Clutch_Size == 0)
        {
            g_land->Warn("Skylark_Clutch::st_Hatching(): DeBug7 ", nullptr);
            exit(1);
        }
#endif
        m_OurPopulationManager->CreateObjects(1, this, nullptr, Ch, Clutch_Size);
        // object destroyed by m_OurPopulationManager
        delete Ch;
        Mother->OnEggsHatch(); // Sets in motion feeding and she tells male
        return 1;
    }
    return 0;
}

References Clutch_Size, Skylark_Population_Manager::CreateObjects(), Nestling_struct::Dad, g_land, 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, Mother, Skylark_Female::MyMate, Skylark_Female::OnEggsHatch(), Skylark_Adult::Paired, and Landscape::Warn().

Referenced by EndStep().

StartDeveloping()

void Skylark_Clutch::StartDeveloping ( )

inline

                           {
        m_CurrentSkState = toss_Developing;
        // Must tell the pop man how many eggs were made
        m_OurPopulationManager->incTotalEggs(Clutch_Size);
    }

Referenced by Skylark_Female::st_Laying().

Step()

void Skylark_Clutch::Step ( void  )

overridevirtual

Step behaviour - must be implemented in descendent classes.

Reimplemented from TALMaSSObject.

                              {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
    if (m_StepDone || m_CurrentSkState == toss_Destroy) return;
#ifdef __CJTDebug_5
  if ( Mother ) {
    if ( Mother->SupplyMyClutch() != this ) {
      g_land->Warn( "Skylark_Step::Step(): Debug_5 ", "" );
      exit( 1 );
    }
  }
#endif
    switch (m_CurrentSkState)
    {
    case toss_Initiation: // Initial state. Will wait here until told by female that she is incubatig
        m_StepDone = true;
        m_CurrentSkState = toss_Initiation;
        break;
    case toss_Developing:
        m_StepDone = true;
        break;
    case toss_Hatching:
        m_StepDone = true;
        break;
    case toss_CDying:
        m_StepDone = true;
        break;
    default:
        g_land->Warn("Skylark_CLutch::Step(): Unknown State ", "");
        exit(1);
    }
}

References g_land, Skylark_Base::m_CurrentSkState, TALMaSSObject::m_StepDone, Mother, Skylark_Female::SupplyMyClutch(), and Landscape::Warn().

Member Data Documentation

Clutch_Size

int Skylark_Clutch::Clutch_Size

Referenced by ReInit(), Skylark_Clutch(), and st_Hatching().

m_baddays

int Skylark_Clutch::m_baddays

protected

Referenced by ReInit(), and Skylark_Clutch().

MinDegrees

int Skylark_Clutch::MinDegrees

protected

Referenced by ReInit(), Skylark_Clutch(), and st_Developing().

Mother

Skylark_Female* Skylark_Clutch::Mother

Referenced by OnMumGone(), ReInit(), Skylark_Clutch(), st_Developing(), st_Dying(), st_Hatching(), Step(), and Skylark_Female::Step().

---

The documentation for this class was generated from the following files:

• /builds/ALMaSS/ALMaSS_MIDox/Skylark/skylarks_all.h
• /builds/ALMaSS/ALMaSS_MIDox/Skylark/skylarks_all.cpp