hola por que no puedo visualizar ni la imagen ni etiquetas ni botonesel codigo es el siguiente, la imagen la convierte de gif a bm o debo primero convertirla
:- module(buho, [ buho/0]).
:- use_module(library(pce)).
:- require([ concat_atom/2
, forall/2
, between/3
]).
general:-write('muestro un buho en una ventana').
:- pce_image_directory(‘./’) % directorio actual donde hemos hecho el consult. C:\estudia\logica\animales.
resource(buho, image, image(‘buho3.bm’)).
buho:-
new(Pict, window('BUHO animacion prolog', size(400, 200))).
send(D, done_message, message(Quit, execute)), % boton salir
send(D, append, label(help, 'Seleccione un dibujo')), % muestro un mensaje
new_buho(Pict, point(20,100)),
send(Pict, open),
send(D, destroy).
new_buho(Pict, Pos) :-
new(F, figure),
forall(image(Rc, N, _File),
(send(F, display, new(BM, bitmap(resource(Rc)))),
send(BM, transparent, @on),
send(BM, name, 1))).
