• Domingo 13 de Octubre de 2024, 03:41

Autor Tema:  No Puedo Visualizar La Imagen  (Leído 2387 veces)

kro

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
No Puedo Visualizar La Imagen
« en: Miércoles 9 de Enero de 2008, 14:53 »
0
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))).