3455276aa2
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1487 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
321 lines
4.2 KiB
Plaintext
321 lines
4.2 KiB
Plaintext
|
|
:- object(order,
|
|
imports(descriptors, proto_hierarchy)).
|
|
|
|
:- end_object.
|
|
|
|
|
|
|
|
:- object(falconiforms,
|
|
imports(descriptors),
|
|
extends(order)).
|
|
|
|
order(falconiforms).
|
|
eats(meat).
|
|
feet(curved_talons).
|
|
bill(sharp_hooked).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(falcon,
|
|
imports(descriptors),
|
|
extends(falconiforms)).
|
|
|
|
family(falcon).
|
|
wings(long_pointed).
|
|
head(large).
|
|
tail(narrow_at_tip).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(peregrine_falcon,
|
|
imports(descriptors),
|
|
extends(falcon)).
|
|
|
|
eats(birds).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(sparrow_hawk,
|
|
imports(descriptors),
|
|
extends(falcon)).
|
|
|
|
eats(insects).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(vulture,
|
|
imports(descriptors),
|
|
extends(falconiforms)).
|
|
|
|
family(vulture).
|
|
feed(scavange).
|
|
wings(broad).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(california_condor,
|
|
imports(descriptors),
|
|
extends(vulture)).
|
|
|
|
flight_profile(flat).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(turkey_vulture,
|
|
imports(descriptors),
|
|
extends(vulture)).
|
|
|
|
flight_profile(v_shaped).
|
|
|
|
:- end_object.
|
|
|
|
|
|
|
|
:- object(passerformes,
|
|
imports(descriptors),
|
|
extends(order)).
|
|
|
|
order(passerformes).
|
|
feet(one_long_backward_toe).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(flycatcher,
|
|
imports(descriptors),
|
|
extends(passerformes)).
|
|
|
|
family(flycatcher).
|
|
bill(flat).
|
|
eats(flying_insects).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(ash_throated_flycatcher,
|
|
imports(descriptors),
|
|
extends(flycatcher)).
|
|
|
|
throat(white).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(great_crested_flycatcher,
|
|
imports(descriptors),
|
|
extends(flycatcher)).
|
|
|
|
tail(long_rusty).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(swallow,
|
|
imports(descriptors),
|
|
extends(passerformes)).
|
|
|
|
family(swallow).
|
|
wings(long_pointed).
|
|
tail(forked).
|
|
bill(short).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(barn_swallow,
|
|
imports(descriptors),
|
|
extends(swallow)).
|
|
|
|
tail(forked).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(cliff_swallow,
|
|
imports(descriptors),
|
|
extends(swallow)).
|
|
|
|
tail(square).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(purple_martin,
|
|
imports(descriptors),
|
|
extends(swallow)).
|
|
|
|
color(dark).
|
|
|
|
:- end_object.
|
|
|
|
|
|
|
|
:- object(tubenose,
|
|
imports(descriptors),
|
|
extends(order)).
|
|
|
|
order(tubenose).
|
|
nostrils(external_tubular).
|
|
live(at_sea).
|
|
bill(hooked).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(fulmar,
|
|
imports(descriptors),
|
|
extends(tubenose)).
|
|
|
|
size(medium).
|
|
flight(flap_glide).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(albatross,
|
|
imports(descriptors),
|
|
extends(tubenose)).
|
|
|
|
family(albatross).
|
|
size(large).
|
|
wings(long_narrow).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(black_footed_albatross,
|
|
imports(descriptors),
|
|
extends(albatross)).
|
|
|
|
color(dark).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(laysan_albatross,
|
|
imports(descriptors),
|
|
extends(albatross)).
|
|
|
|
color(white).
|
|
|
|
:- end_object.
|
|
|
|
|
|
|
|
:- object(waterfowl,
|
|
imports(descriptors),
|
|
extends(order)).
|
|
|
|
order(waterfowl).
|
|
feet(webbed).
|
|
bill(flat).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(duck,
|
|
imports(descriptors),
|
|
extends(waterfowl)).
|
|
|
|
family(duck).
|
|
feed(on_water_surface).
|
|
flight(agile).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(female_mallard,
|
|
imports(descriptors),
|
|
extends(duck)).
|
|
|
|
voice(quack).
|
|
color(mottled_brown).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(male_mallard,
|
|
imports(descriptors),
|
|
extends(duck)).
|
|
|
|
voice(quack).
|
|
head(green).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(pintail,
|
|
imports(descriptors),
|
|
extends(duck)).
|
|
|
|
voice(short_whistle).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(goose,
|
|
imports(descriptors),
|
|
extends(waterfowl)).
|
|
|
|
family(goose).
|
|
size(plump).
|
|
flight(powerful).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(canada_goose,
|
|
imports(descriptors),
|
|
extends(goose)).
|
|
|
|
head(black).
|
|
cheek(white).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(snow_goose,
|
|
imports(descriptors),
|
|
extends(goose)).
|
|
|
|
color(white).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(swan,
|
|
imports(descriptors),
|
|
extends(waterfowl)).
|
|
|
|
family(swan).
|
|
neck(long).
|
|
color(white).
|
|
flight(ponderous).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(trumpeter_swan,
|
|
imports(descriptors),
|
|
extends(swan)).
|
|
|
|
voice(loud_trumpeting).
|
|
|
|
:- end_object.
|
|
|
|
|
|
:- object(whistling_swan,
|
|
imports(descriptors),
|
|
extends(swan)).
|
|
|
|
voice(muffled_musical_whistle).
|
|
|
|
:- end_object.
|