animacion_1.pro

%EJEMPLO DE ANIMACION
colour(white).
colour(red).
colour(green).
colour(blue).
colour(black).


anim :-
	send(new(P, picture('Attribute Demo')), open),
	send(P, display, new(B, box(100, 100)), point(20, 20)),
	send(P, display, new(E, ellipse(100, 50)), point(150, 20)),
	send_list([B, E], fill_pattern, colour(white)),
	new(C, click_gesture(left, '', double, message(@prolog, edit_graphical, @receiver))),
	send(B, recogniser, C),
	send(E, recogniser, C),

	send(timer(2), delay),
	free(E),
	send(P, display, new(F, ellipse(100, 50)), point(250, 20)),
	send(timer(2), delay),
	free(F),
	send(P, display, new(G, ellipse(100, 50)), point(200, 100)),
	send(timer(2), delay), free(G), 
	send(P, destroy).