Foops foops foops print frameprint frame
Foops — Foops (foops.pro)
% PRINT A FRAME
printfs.
printf(Class,Name) :-
frinst(Class,Name,SlotList,Time),
write_line(['Frame:',Class,Name,Time]),
print_slots(SlotList), nl.% UTILITIES
delete(X,[],[]).
is_on(X,[X|Y]).
is_on(X,[Y|Z]) :- is_on(X,Z).
|
209 |
---|
Foops — Foops (foops.pro)
Appendices - Full Source Code |
---|