Hello, I try to use the CLX library but I don't know how to view these
pixmaps I get via GET-IMAGE.
Here is an example:
,----
| (require 'clx)
| (in-package :xlib)
|
| (defun test ()
| (let* ((d (open-display "127.0.0.1" :display +display+))
| (s (car (display-roots d)))
| (w (screen-root s)))
| (get-image w
| :x 0 :y 0
| :width (drawable-width w)
| :height (drawable-height w)
| :format :xy-pixmap)
| ;t
| ))
|
| (write-bitmap-file "/tmp/test.xpm" (test))
`----
That test.xpm file is unreadable for Gimp etc. How can I view that
file?
Looks like this:
,----
| #define image_width 1024
| #define image_height 768
| #define image_blue_mask 31
| #define image_green_mask 2016
| #define image_red_mask 63488
| static char image_bits[] = {
| 0x2b,0x00,0x00,0x00,0x2b,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x14,0x33,0x3b,
| 0x40,0xf8,0xf7,0xfe,0xbf,0x94,0xf7,0xfe,0xbf,0x9c,0x51,0xff,0xbf,0x00,0x00,
| 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
| 0x00,0x00,0x00,0xaa,0xb3,0x6a,0x08,0x23,0x00,0x00,0x00,0x13,0x32,0x00,0x00,
|..........
`----
thanks
--
...sutongi tti olleh
