Lisp HUG Maillist Archive

Problems with .gif images on LWM

Here is my problem....

CL-USER 15 > (defvar image-file (pathname "file.gif"))
IMAGE-FILE

CL-USER 16 > image-file
#P"file.gif"

CL-USER 17 > (and (probe-file image-file) t)
T

CL-USER 18 > (setf img (gp:read-external-image image-file))
#<GRAPHICS-PORTS:EXTERNAL-IMAGE 22144D13>

CL-USER 19 > (gp:analyze-external-image img)

Error: in GRAPHICS-PORTS:ANALYZE-EXTERNAL-IMAGE : External image #<GRAPHICS-PORTS:EXTERNAL-IMAGE 220D6A1F> is not plain editable
  1 (abort) Return to level 0.
  2 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed,  or :? for other options



AFAIK, the file is a vanilla .gif file.  Does anybody know of a workaround (even editing the .gif file)?
Thanks

Cheers

--
Marco Antoniotti


Updated at: 2020-12-10 08:41 UTC