75392e54c7
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@757 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
39 lines
857 B
Plaintext
39 lines
857 B
Plaintext
|
|
:- object(stack_monitor,
|
|
implements(event_handlersp)).
|
|
|
|
|
|
:- info([
|
|
version is 1.0,
|
|
date is 1998/3/23,
|
|
author is 'Paulo Moura',
|
|
comment is 'Monitor for brick movements printing an ascii representation of each brick position.']).
|
|
|
|
|
|
:- uses(loop).
|
|
:- uses(list).
|
|
|
|
|
|
after(_, move(_, _), _) :-
|
|
findall(
|
|
(Brick, X, Y),
|
|
(instantiates_class(Brick, brick), Brick::position(X, Y)),
|
|
Bricks),
|
|
setof(X, Brick^Y^ (list::member((Brick,X,Y), Bricks)), Xs),
|
|
list::last(Xs, Xmax),
|
|
setof(Y, Brick^X^ (list::member((Brick,X,Y), Bricks)), Ys),
|
|
list::last(Ys, Ymax),
|
|
loop::fordownto(Y, Ymax, 1,
|
|
(write('|'),
|
|
loop::forto(X, 1, Xmax,
|
|
(list::member((Brick, X, Y), Bricks) ->
|
|
write(Brick)
|
|
;
|
|
write('.'))),
|
|
nl)),
|
|
write('-'),
|
|
loop::forto(X, 1, Xmax, write('-')), nl.
|
|
|
|
|
|
:- end_object.
|