🚀 go-pugleaf

CLX $@$r$D$+$C$?!"(Jpixmap $@$N(J $@%U%!%$%k$X$N=q$-9~$_!?;2>H$K$D$$$F$*J9$-$7$^$9!#(J
$@8=:_2<$N$h$&$J%W%m%0%i%`$r;H$C$F$$$^$9$,!"(J

(defvar *window*)
(defvar *gcontext*)

(defun save-pixmap-file (&optional (file "pixmap")
			 &key (x 0) (y 0) (width 200) (height 200))
  " *window* $@>e$N(J pixmap $@$r(J get $@$7!"(Jfile $@$K(J save $@$9$k(J "
  (XLIB:write-bitmap-file
   file
   (XLIB:get-image *window* :x x :y y :width width :height height)
   :sorceress))

(defun load-pixmap-file (&optional (file "pixmap") &key (x 0) (y 0))
  " file $@$+$i(J pixmap $@$rFI$_9~$_!"(J*window* $@$K(J put $@$9$k(J "
  (XLIB:PUT-IMAGE *window* *gcontext*
		  (XLIB:read-bitmap-file file)
		  :x x :y y))

$@$3$l$@$HHs>o$K;~4V$r?)$$$^$9!#(J
pixmap $@$N(J load/save $@$r(J CLX $@$+$i9bB.$K$d$kJ}K!$rCN$C$F$i$l$?$i!"(J
$@65$($F2<$5$$!#(J

-- 
	Mathmatical Systems Institute Inc.
	6F AM BLDG. 2-5-3 Shinjuku, Shinjuku-Ku, Tokyo Japan
	E-mail : kuroda@msi.co.jp (Kuroda,Hisao)
      # Everybody's got something to hide except me and my //GS. #