[Pal-devel] Can't run examples/hello.lisp

[David N Murray]

On Jan 3, Tomi Neste scribed:

> Well, there are a few things you could try from the repl (in pal package),
> just to see how much works.
>
> (open-pal :paths "/path/to/my/images/") ;; opens pal window with default
> settings

CL-USER> (open-pal :paths "/home/dnm/tr/")
("/home/dnm/tr/" #P"/home/dnm/lisp/" #P"/home/dnm/lisp/pal/")
; frame appears, title PAL, black background

>
> (clear-screen +white+)
CL-USER> (clear-screen +white+)
NIL
; no change in frame

>
> (update-screen) ;; update display, should signal in case of opengl error
>
CL-USER> (update-screen)
NIL
; no change in frame

> (wait-keypress) ;; to see if event handling works
>
CL-USER> (wait-keypress)
:KEY-MOUSE-1

> (draw-image (load-image "some.png") (v 0 0)) ;; loads and draws an image
>  from "path/to/my/images"
CL-USER> (draw-image (load-image "bars.png") (v 0 0))
NIL
; no change in frame
CL-USER> (update-screen)
NIL
; no change in frame

>
> (screen-to-array (v 0 0) 100 100)
> ;; this should return part of the window as an array of rgba values. E.g.
> after (clear-screen +white+) it should return all 255s. I'm not sure if it
> really should work in this situation but might as well try.

CL-USER> (screen-to-array (v 0 0) 100 100)
#2A(((0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255)
     (0 0 0 255) (0 0 0 255) (0 0 0 255) (0 0 0 255))
    [repeat above array 99 times])

now that's interesting: the frame really is black (assuming the first
3 values in the above are R G B.

>
> Other than that it is really hard to say where the problem might be. I
> just tried some of the more demanding X11 apps remotely with xming/win32
> and xorg/linux and the result were quite random, from total hang to
> problems with screen update so it might be a general problem with SDL
> apps. With my setup PAL hangs completely at open-pal :(
>
> Assuming you are on Windows PAL should work natively there. But then of
> course the environment isn't as nice...

I really don't want to develop in Windows (I'm trying to break the
addiction :-), but I'll probably look into it.  I'm also trying to get
garnet to compile.  That's fun.


Thanks,
Dave