From: "W. Blake" <W.Blake@scotoma.org>
Subject: Re: [Softwareandculture] Freezed-Dried .Trauma      [ResidualDataShearing]
To: Recipient List Suppressed <W.Blake@scotoma.org>
Date: Mon, 14 Oct 2002 14:35:33 +0000

#   Perl Routines to Manipulate London w.blake@scotoma.org
#   London.pl, v 2.0 1792/02/23 08:16:43
#
#   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 cities dark gates - the tree of knowledge leads to this mansion
built on misery. 
#   Here the dress code of secrecy cloaks the body in fear.
#   This is how the propitary city gets built, 
#   Hidden in every propietry street, 
#   In every proprietary house, 
#   In every propietry possession we meet. 
#
#   DEPENDENCIES:
#
use SocialClass;

#   The American war was the last judgment on England. 
#   Inoculated against the sewer. Albions 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. 
#   Masacure-bloated, angels crawl from the corpse of war.
#   Five times fatter then when they entered. 

#   Choking lays the sickening Leveller-republican. Caustic fumes - dusts, 
#   gust from wars - grinding wheels - mils of cruelty - mils of terror,
jealousy & secrecy. 
#   Every light ray turned to shadow and dispare. to riketts - 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.


#   This Library is for calculating 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. 
#   to do this we aproximate that there are 7452520 or so faces in this state
that live in the charter'd streets of London. 
#   Found near where the charter'd Thames does flow. 
#   
#   DATATYPES USED:
#
#   These are a series of anonymous hashes;
#   At least one is required at compile time: 
#

#   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         =>  " "
#       }, As many as found
#   }
#
    local %DeadChildIndex;
    
    local @SocialClasses = qw(
                        RentBoy YoungGirl-Syphalitic-Inoculator 
                        CrackKid WarBeatenKid ForcedFeatalAbortion 
                        
                        );
    local @ProprietryItems = qw(
        Shelter Food Fun Energy Land Technology Beast Fish Foul Knowledge
    );


    #   The Get_VitalLungCapcity routine uses the Age and Height entry of the
DeadChildIndex 
    #   to calculate the Lung-Capcity 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){
            #   Basically your vital lung capacity gets bigger as you get
taller, 
            #   but it gets smaller as you get older... So the person who could
scream the most would be as tall as they're going to 
            #   get but be old enough to have just gotten there. (Probably about
18 or 20 years old.) 
            #   This falls outside of our basic parameter of 0 to 14 years. But
the maths are still useful
            $VitalLungCapcity = ((0.041 * $Height) - (0.018 * $Age)) - 2.69 ;
            return $VitalLungCapcity;
        }else{
            # we may not know the height, try to guess from SocialClass 
            if(! $Height){$Height   = Get_HeightFromClass(Height =>
$DeadChild->{SocialClass})}
            # we may not know the Age, try to guess from SocialClass 
            if(! $Age){$Age         = Get_AgeFromClass(Age =>
$DeadChild->{SocialClass})}
            if($Age && $Height){
                $VitalLungCapcity = ((0.041 * $Height) - (0.018 * $Age)) - 2.69
;
                return $VitalLungCapcity;
            }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){
                    $VitalLungCapcity = ((3.6) - (2.1) / 8.0) * $Age;
                    return $VitalLungCapcity;
                }else{
                    $VitalLungCapcity = ((3.6) - (2.1) / 8.0) * int(rand(14)) ;
                    return $VitalLungCapcity;
                }
            
            }
            
        }
    
    
    }

  


local %InfantsScreamInFear;

#   WoeOfEveryMan is the main method for constructing the
#   InfantsScreamInFear structure:
#   If we find that say that the hash %{RentBoy} is defined 
#   with values then we add this to the hash %{InfantsScreamInFear}

sub WoeOfEveryMan {
    foreach my $Class (@SocialClasses){
        warn "New class = $Class\n";
        $InfantsScreamInFear->{$Class} = %{$Class} if %{$Class};
    }
}

#In every cry of every Man, 
#In every Infants cry of fear, 
#In every voice: in every ban, 
#The mind-forg'd manacles I hear
#
#  
#SE-LONDON9;   E27|        How the Chimney-sweepers cry   t100 
#SE-LONDON10; E27|        Every blackning Church appalls,   t101 
#SE-LONDON11; E27|        And the hapless Soldiers sigh 
#SE-LONDON12; E27|        Runs in blood down Palace walls 
#
#  
#SE-LONDON13; E27|        But most thro' midnight streets I hear   t102 
#SE-LONDON14; E27|        How the youthful Harlots curse 
#SE-LONDON15; E27|        Blasts the new-born Infants tear 
#SE-LONDON16; E27|        And blights with plagues the Marriage hearse 





#Evaluate CONSTANT_Worry at complile time so we do not have to bother in the
rest of the script
$CONSTANT_Worry = eval {sub HouseOwnerOcupier {return qw(DEBT LOANS BILLS
REPAIRS COUNCILTAX) }};
$CONSTANT_Worry = eval {sub Parent {return qw(BAD_EDUCATION BAD_HEALTHCARE
POLOUTION BAD_TRANSPORT) } * $NUMBER_OF_CHILDREN};

#   This routine is a direct lift from the 1792 version 1.0
#   so it retains some of the antiquated langudge of the 
#   original algorythum.
#   The purpose of this Subroutine is to
#   Traverse the DeadChild structure
#   whilst $imagination exists. Imagination is depleted
#   by recusivly calling the PursueWealth function
#   Once all imagination is exausted the programme
#   dies calculating the next time it should run.
sub MindForgedMannacles {
    # $Mind is the mind of one member of the population of London
    # Imagination is a field for flexible thinking in the stucture of the mind.
    # One mind is passed into this fuction at a time
    my ($ThisMind) = @_;
    
    do {    # keep going untill ${ThisMind}->{Imagination} becomes negative.
    
        # For each DeadChildIndex the minds memory
        # field is depleted by the $CONSTANT_Worry 
        # subroutine unless Imagination is positive.
        foreach my $DeadChildIndex (%{DeadChild}){
            $ThisMind->{Memory} .= $CONSTANT_Worry unless
$ThisMind->{Imagination};
            #if the minds memory contains debt then 
            # call the subroutine MoreWork 
            if ($ThisMind->{Memory} =~ /DEBT/){ 
                &MoreWork(\%{$Mind->{Memory}});
            }else{
            # if we got this far we have a positive bank balance and some
imagination
            # traverse InfantsScremOfFear and extract Pain for each one.
                PAINFULLMEMORY: foreach $Pain (%{InfantsScremOfFear} ){
                    # here we use $Pain to recursively call PursueWealth
                    # untill Imagination turn negative
                    $ThisMind->{Imagination} = $ThisMind->{Imagination} -
&PursueWealth();
                    print $ThisMind->{Imagination}; 
                    if ($ThisMind->{Imagination} < 0 ){ last PAINFULLMEMORY }
                }
            }
        }
    } while ( $ThisMind->{Imagination} >= 1);
    
    die "IMAGINATION DEPLETED: Re-run date = time + 30 ";
}





#   This routine needs work due to the lack of recorded data: 
#   It is to caculate the 
#   amount of contemporary profit that has acumulated 
#   through the interest based on the number of dead children
#   directly caused through neglect, desease and sale of slaves
sub PastProfit {
    # $NUTRITIONAL_COSTS = minimal care upto the age
    # of 12
    $DeadChild = $NUTRITIONAL_COSTS; 
    %{DeadChild} +  %{DeadChildren->{FoundInLondonsParkPonds}}  if
%{DeadChildren->{FoundInLondonsParkPonds}};
    %{DeadChild} +  %{DeadChildren->{ChimineySweeps}}           if
%{DeadChildren->{ChimineySweeps}};
}

# This subroutine adds to argument to the varible $ThisMindForgets
sub MoreWork {
    my $ThisMindForgets = @_;
    if($ThisMindForgets =~ 'SPARE TIME' )
    {
        $ThisMindForgets =~ s/(.+)(SPARE TIME)(.+)/$1'MORE WORK'$3/
    }
    $ThisMindForgets .= qw( Media Clebrity Advertising TechToys RichFood);
    return; 
}
local @ProprietryItems = qw(
        Shelter Food Fun Energy Land Technology Beast Fish Foul Knowledge
    );
# standerd library 
# basically own evrything regardless
sub PursueWealth {
    my %Mine;
    my %ALL;
    foreach my $Item (@ProprietryItems){
        $Mine->{$Item} =   \%{$ALL{$Item}};
        warn "\nMine ALL_$Item = REF::$Mine->{$Item}"; 
    }
    return $Mine;
}

%{MIND} = {# this structure represents the ifinite workings of the brain located
between langudge and sense 
    Imagination => 'This varible represents the ability to transform the self to
a place inwhich it is not physically present'

};

#           Life expectancy =>  "This is calculated according to the amount of 

# These are the children beaten after the homecoming of 
# Soldiers constructing and defending the Empire
%{ }    = {};
# Past:
# The above structures are inherited from the following 
#The spirit of DeadChildren passed by reference from &MoralCodeAbuse
#Iron works,coal mines, gas works, shipyards, construction, match factories,
nail factories, chimney sweeping
%{DeadChildren->{FoundInLondonsParkPonds}}  = {}; 
#The DeadChildren who lost their lives in the big houses: 
# from Hampsted in the North, to Peckam in the South, 
# from Bow in the east to Chertsey in the West.
%{DeadChildren->{ChimineySweeps}}   = {};