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

Foops — Foops (foops.pro)