# Perl Routines to Manipulate London w.blake@scotoma.org
# London.pl, v 0.0.0 1792/02/23 08:16:43
# UNFINISHED
# Copyright (c) 1792-2002 William Blake  
# Unpublished work reconstituted W.Blake@Scotoma.org.
# Permission granted to use and modify and append this library so long as the 
# copyright above is maintained, modifications are documented, and credit is   
# given for any use of the library.

# Thanks are due to many people for reporting bugs and suggestions
# For more information, see http://www.scotoma.org

# Grave the sentence deep. My love of London held in torment.
# Heavy, rains of cruelty, disguised in spectacular investments. 
# Accumulate interest in Jealousy,Terror and Secrecy.
# The bloated Square mile 
# Gifts this isle.

# In this citys dark gates - the tree of knowledge leads to this mansion built on misery. 
# Here the dress code of secrecy cloaks the flesh in fear.
# This is how the proprietary city gets built, 
# Hidden in every proprietary street, 
# In every proprietary house, 
# In every proprietary possession we meet. 

# NAME
# London - Simple Act Redress 
# The American War was the last judgment on England. 
# Inoculated against the sewer. Albion's Angels 
# Rise up on wings of iron & steel, spreadsheet & rule: 
# To gift sanitation & sulphurous fire to: 
# The wheat of Europe, 
# The rice of Asia,
# The potato of America,
# The maize of Africa. 
# Massacre-bloated, angels crawl from the corpse of war.
# Five times fatter than when they entered. 

# Choking lays the sickening Leveller-republican. Caustic fumes - dusts, 
# gust from wars - grinding wheels - mills of cruelty - mills of terror, jealousy & secrecy. 
# Every light ray turned to shadow and despair. to rikets - scabies - ticks & lice. 
# Until the dark sun never set on the Hanoverian empire. 
#
# Rise then the Leveller-republic, rise on wings of knowledge flowing in the domain of the many.
# For heaven is more knowledge then one man can muster in a lifetime.
# For hell is more knowledge then one man can muster in a lifetime.

# SYNOPIS and DESCRIPTION
# This Library is for redressing the gross loss to Londons Imagination of children 
# beaten enslaved fucked and exploited to death from 1792  to the present.
# We see this loss in every face marked with weakness or marked with woe. 

use PublicAddressSystem qw(Hampstead Westminster Lambeth Chertsey);
# PublicAddressSystem is an I/O library for the manipulation of the wheelen
# Vortex4 129db outside warning system. 
#  
# from Hampstead in the North, to Peckham in the South, 
# from Bow in the East to Chertsey in the West.

# Find and calculate the gross lung-capacity of the children screaming from 1792 to the present
# calculate the air displacement needed to represent the public scream
# set PublicAddressSystem intance and transmit the output.
# to do this we approximate that there are 7452520 or so faces that live in the charter'd streets of London. 
# Found near where the charter'd Thames does flow. 
# 
#  DATATYPES USED:

local @SocialClass = qw( RentBoy YoungGirl-Syphalitic-Innoculator CrackKid  WarBeatenKid  ForcedFeatalAbortion Chimney-Sweeps UnCategorisedVictim);

# These are a series of anonymous hashes;
# At least one is required at compile time: 
#

local %DeadChildIndex;

# The Data for the DeadChildIndex should be structured as follows:
#
# %{DeadChildIndex} => {
# 	IndexValue => {
# 		Name 		=> 	" Child name  If known else undefined ";
# 		Age		=> 	" Must be under 14 or the code will throw an 
# 					exception due to $COMPLICITY";
# 		Height			=>	"Height of the child"
# 		SocialClass		=>	"RentBoy YoungGirl-Syphalitic-Innoculator
# 					CrackKid WarBeatenKid ForcedFeatalAbortion
# 					Chimney-Sweeps UncategorisedVictim "
# 	}, As many as found
# }
#

# CryOfEveryMan
# First we add the Class attribute to the DeadChild instance under review
# Next add the VitalLungCapacity of that childs ability to scream

sub CryOfEveryMan {
    my $index = shift;
    # Because a child may belong to one or more Social Class
    # traverse the list adding the prospects of that Social Class
    foreach my $Class(@SocialClasses){
        # Add the contents of this $Class to $DeadChildIndex->{$Index}
        # Class attribute
        if ( $Class eq $DeadChildIndex->{$Index}->{Class}){
            $DeadChildIndex->{$INdex}->{Class} = %{$Class};
        }else{
            warn "$DeadChildIndex->{$Index}->{Name} is not a member of $Class\n";
        }
    }
    $DeadChildIndex->{$Index)->{Class} = %{UncategorizedVictim} if !$DeadChildIndex->{$Index}->{Class};
    # The average daily scream output of fear for the period 1792-2002 is 6.
    my $TotalDaysLived = ($DeadChildIndex->{$Index}->{Class}->{LifeExpectancy} * 365)
    # Calculate the gross $Lung Capacity For Screaming for this child
    my $LungCapacityForScreaming = &Get_VitalLungCapacity(\%{$DeadChildIndex->{$Index}}) * $TotalDaysLived;
    # asign to $DeadChildIndex->{$Index}->{ScreamInFear}
    $DeadChildIndex->{$Index}->{ScreamInFear} = $LungCapacityForScreaming;
}

# need a function to play the sound file for
# lenght of time * volume of speaker system * air displacement
# The Get_VitalLungCapacity routine uses the Age and Height entry of the Dead Child Index
# to calculate the Lung-Capacity of the dead child. This is then used to calculate the
# volume and capacity of screams when terrified.

sub Get_VitalLungCapcity{
    my $DeadChild = shift;
    my (
        $VitalLungCapcity, # vital lung capacity in liters of air
        $Height, # is height in centimeters
        $Age, # is age in years
    );
    $Height = $DeadChild->{Height}  unless ! defined $DeadChild->{Height};
    $Age    = $DeadChild->{Age}     unless ! defined $DeadChild->{Age};
    if($Height && $Age){
        #   lung capacity increases with height, but decreases with age.
        #   So a person screams the most when they are as tall as they're going to be.
        #   (Probably about 18 or 20 years old.)
        #   This falls outside of our basic parameter of 0 to 14 years.
        #   But the calculation is still useful
        $VitalLungCapacity = ((0.041 * $Height) - (0.018 * $Age)) - 2.69;
        return $VitalLungCapacity;
    }else{
        # we may not know the height, try to guess from Social Class
        if(!$Height){$Height = Get_HeightFromClass(Height=>$DeadChild->{SocialClass})}
        # we may not know the Age, try to guess from Social Class
        if(!Age){$Age = Get_AgeFromClass(Age=>$DeadChild->{SocialClass})}
        if($Age && $Height){
            $VitalLungCapcity = ((0.041 * $Height) - (0.018 * $Age)) - 2.69;
            return $VitalLungCapacity;
        }else{
            # Approximate it
            # The average 6 year old child is about 120 cm tall. So $Height = 130.0 and $Age = 6.0
            # Put this into our equation and we get that the VitalLungCapacity is about 2.1 liters.
            # The average 14 year old teenager is about 160 cm tall. So Height = 160 and Age = 14.
            # This gives us a vital lung capacity of about 3.6 liters.
                if($Age){
                    $VitalLungCapacity = ((3.6) - (2.1)/8.0) * $Age;
                    return $VitalLungCapcity;
                }else{
                    $VitalLungCapacity = ((3.6) - (2.1)/8.0) * int(rand(14));
                    return $VitalLungCapcity;
                    
                }
        }
    }
}