DataMuseum.dk

top - download

    Length: 1647 (0x66f)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Animal;
with Bird;
with Bird_Of_Prey;
with Fish;
with Foot;
with Nest;
with Text_Io;

procedure Test_Animals is
    B1 : Bird.Object := Bird.Create (Bird.It_Self);
    Bop1 : Bird_Of_Prey.Object := Bird_Of_Prey.Create (Bird_Of_Prey.It_Self);
    F1 : Fish.Object := Fish.Create (Fish.It_Self);
    N1 : Nest.Object := Nest.Create (Nest.It_Self);

    A : Animal.Object := Animal.Object (F1);
    Masse : Positive;
    Fo : Foot.Object := Bird.Get_Feet (Bird.Object (Bop1));


begin
    Nest.Set_Place (This_Nest => N1, Number => 2);
    Nest.Image (N1);

    Bird.Set_Nest (This_Bird => B1, This_Nest => N1);
    Bird_Of_Prey.Set_Nest (This_Bird => Bop1, This_Nest => N1);
    Foot.Set_Length (This_Foot => Fo, Cm => 17);
    -- Fish.Swim (F1);
    Fish.Eat (F1);
    -- Bird.Fly (B1);

    -- Animal.Sleep (Animal => Animal.Object (B1), Time => 1.0);
    -- Animal.Sleep (Animal => Animal.Object (F1), Time => 1.0);

    Animal.Set_Mass (This_Animal => A, Kg => 33);
    Bird.Set_Mass (This_Animal => B1, Kg => 3);
    Fish.Set_Fin (This_Fish => F1, Number => 5);
    Bird_Of_Prey.Set_Mass (This_Animal => Bop1, Kg => 9);
    -- Fish.Swim (Fish.Object (A));

    -- Fish.Swim (Fish.Object (B1));

    -- Fish.Image (F1);
    -- Bird.Image (Bird.Object (Bop1));
    --Bird_Of_Prey.Fly (Bop1);
--    Bird_Of_Prey.Sleep (Bop1);
    Bird_Of_Prey.Imag (Bop1);
    -- Fish.Delete (F1);
    -- Animal.Image (A);
    -- Animal.Image (Animal.Object (F1));
    -- Animal.image (Animal.Object (B1));
    Bird.Set_Feather (This_Bird => B1, Number => 502);
    Bird.Image (B1);
    Bird.Delete (B1);
    Nest.Image (N1);


end Test_Animals;

pragma Main;