Filters return tuples now, not colors.

schani · Dec 24, 2007 · cfb2a57 · cfb2a57
1 parent 5120af1
commit cfb2a57
Show file tree

Hide file tree

Showing 7 changed files with 260 additions and 220 deletions.
diff --git a/builtins.lisp b/builtins.lisp
@@ -1141,8 +1141,8 @@ bound <tt>l</tt> and the upper bound <tt>u</tt>, otherwise 0."
       (set result (make (?T 1) 0))))
 
 (defbuiltin "__origVal" origValXY (rgba 4) ((p (xy 2)) (frame (nil 1)) (drawable (image 1)))
-  (let ((c (orig-val (nth 0 p) (nth 1 p) (nth 0 drawable) (nth 0 frame))))
-    (set result (make (rgba 4) (red c) (green c) (blue c) (alpha c)))))
+  (let ((t (orig-val (nth 0 p) (nth 1 p) (nth 0 drawable) (nth 0 frame))))
+    (set result (make (rgba 4) (tuple-nth t 0) (tuple-nth t 1) (tuple-nth t 2) (tuple-nth t 3)))))
 
 ;;; colors