[pal-cvs] CVS pal/examples - pal-cvs@common-lisp.net - mailman3.common-lisp.net

31 Oct 2007


      Update of /project/pal/cvsroot/pal/examples
In directory clnet:/tmp/cvs-serv19546
Added Files:
    vecto.lisp 
Log Message:
Added vecto.lisp.
--- /project/pal/cvsroot/pal/examples/vecto.lisp	2007/10/31 22:39:33	NONE
+++ /project/pal/cvsroot/pal/examples/vecto.lisp	2007/10/31 22:39:33	1.1
;;; Few utility functions and examples of using PAL with Vecto (http://www.xach.com/lisp/vecto/)
(defpackage :pal-vecto
  (:use :cl)
  (:export state-to-image))
(in-package :pal-vecto)
(defun state-to-image (smoothp)
  "Convert current Vecto graphics state to PAL image."
  (let* ((data (vecto::image-data vecto::*graphics-state*))
     (width (vecto::width vecto::*graphics-state*))
     (height (vecto::height vecto::*graphics-state*))
     (image (make-array (list width height))))
    (pal:do-n (x width y height)
      (let ((pixel (+ (* x 4) (* y width 4))))
    (setf (aref image x y)
          (list (aref data pixel)
    	    (aref data (+ pixel 1))
    	    (aref data (+ pixel 2))
    	    (aref data (+ pixel 3))))))
    (pal:image-from-array image smoothp)))