yap-6.3/Logtalk/examples/birds/birds.lgt

:- 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.