root/trunk/examples/birds/birds.lgt

Revision 4601, 4.2 KB (checked in by pmoura, 7 weeks ago)

Added svn:mime-type property to source files (set to text/x-logtalk).
  • Property svn:mime-type set to text/x-logtalk
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1
2:- object(order,
3    imports(descriptors, proto_hierarchy)).
4
5:- end_object.
6
7
8
9    :- object(falconiforms,
10        imports(descriptors),
11        extends(order)).
12
13        order(falconiforms).
14        eats(meat).
15        feet(curved_talons).
16        bill(sharp_hooked).
17
18    :- end_object.
19
20
21        :- object(falcon,
22            imports(descriptors),
23            extends(falconiforms)).
24
25            family(falcon).
26            wings(long_pointed).
27            head(large).
28            tail(narrow_at_tip).
29
30        :- end_object.
31
32
33            :- object(peregrine_falcon,
34                imports(descriptors),
35                extends(falcon)).
36
37                eats(birds).
38
39            :- end_object.
40
41
42            :- object(sparrow_hawk,
43                imports(descriptors),
44                extends(falcon)).
45
46                eats(insects).
47
48            :- end_object.
49
50
51        :- object(vulture,
52            imports(descriptors),
53            extends(falconiforms)).
54
55            family(vulture).
56            feed(scavange).
57            wings(broad).
58
59        :- end_object.
60
61
62            :- object(california_condor,
63                imports(descriptors),
64                extends(vulture)).
65
66                flight_profile(flat).
67
68            :- end_object.
69
70
71            :- object(turkey_vulture,
72                imports(descriptors),
73                extends(vulture)).
74
75                flight_profile(v_shaped).
76
77            :- end_object.
78
79
80
81    :- object(passerformes,
82        imports(descriptors),
83        extends(order)).
84
85        order(passerformes).
86        feet(one_long_backward_toe).
87
88    :- end_object.
89
90
91        :- object(flycatcher,
92            imports(descriptors),
93            extends(passerformes)).
94
95            family(flycatcher).
96            bill(flat).
97            eats(flying_insects).
98
99        :- end_object.
100
101
102            :- object(ash_throated_flycatcher,
103                imports(descriptors),
104                extends(flycatcher)).
105
106                throat(white).
107
108            :- end_object.
109
110
111            :- object(great_crested_flycatcher,
112                imports(descriptors),
113                extends(flycatcher)).
114
115                tail(long_rusty).
116
117            :- end_object.
118
119
120        :- object(swallow,
121            imports(descriptors),
122            extends(passerformes)).
123
124            family(swallow).
125            wings(long_pointed).
126            tail(forked).
127            bill(short).
128
129        :- end_object.
130
131
132            :- object(barn_swallow,
133                imports(descriptors),
134                extends(swallow)).
135
136                tail(forked).
137
138            :- end_object.
139
140
141            :- object(cliff_swallow,
142                imports(descriptors),
143                extends(swallow)).
144
145                tail(square).
146
147            :- end_object.
148
149
150            :- object(purple_martin,
151                imports(descriptors),
152                extends(swallow)).
153
154                color(dark).
155
156            :- end_object.
157
158
159
160    :- object(tubenose,
161        imports(descriptors),
162        extends(order)).
163
164        order(tubenose).
165        nostrils(external_tubular).
166        live(at_sea).
167        bill(hooked).
168
169    :- end_object.
170
171
172        :- object(fulmar,
173            imports(descriptors),
174            extends(tubenose)).
175
176            size(medium).
177            flight(flap_glide).
178
179        :- end_object.
180
181
182        :- object(albatross,
183            imports(descriptors),
184            extends(tubenose)).
185
186            family(albatross).
187            size(large).
188            wings(long_narrow).
189
190        :- end_object.
191
192
193            :- object(black_footed_albatross,
194                imports(descriptors),
195                extends(albatross)).
196
197                color(dark).
198
199            :- end_object.
200
201
202            :- object(laysan_albatross,
203                imports(descriptors),
204                extends(albatross)).
205
206                color(white).
207
208            :- end_object.
209
210
211
212    :- object(waterfowl,
213        imports(descriptors),
214        extends(order)).
215
216        order(waterfowl).
217        feet(webbed).
218        bill(flat).
219
220    :- end_object.
221
222
223        :- object(duck,
224            imports(descriptors),
225            extends(waterfowl)).
226
227            family(duck).
228            feed(on_water_surface).
229            flight(agile).
230
231        :- end_object.
232
233
234            :- object(female_mallard,
235                imports(descriptors),
236                extends(duck)).
237
238                voice(quack).
239                color(mottled_brown).
240
241            :- end_object.
242
243
244            :- object(male_mallard,
245                imports(descriptors),
246                extends(duck)).
247
248                voice(quack).
249                head(green).
250
251            :- end_object.
252
253
254            :- object(pintail,
255                imports(descriptors),
256                extends(duck)).
257
258                voice(short_whistle).
259
260            :- end_object.
261
262
263        :- object(goose,
264            imports(descriptors),
265            extends(waterfowl)).
266
267            family(goose).
268            size(plump).
269            flight(powerful).
270
271        :- end_object.
272
273
274            :- object(canada_goose,
275                imports(descriptors),
276                extends(goose)).
277
278                head(black).
279                cheek(white).
280
281            :- end_object.
282
283
284            :- object(snow_goose,
285                imports(descriptors),
286                extends(goose)).
287
288                color(white).
289
290            :- end_object.
291
292
293        :- object(swan,
294            imports(descriptors),
295            extends(waterfowl)).
296
297            family(swan).
298            neck(long).
299            color(white).
300            flight(ponderous).
301
302        :- end_object.
303
304
305            :- object(trumpeter_swan,
306                imports(descriptors),
307                extends(swan)).
308
309                voice(loud_trumpeting).
310
311            :- end_object.
312
313
314            :- object(whistling_swan,
315                imports(descriptors),
316                extends(swan)).
317
318                voice(muffled_musical_whistle).
319
320            :- end_object.
Note: See TracBrowser for help on using the browser.