picolisp

commit f2561dc6ac5e507e1422477738ac2e941eab0c0e
parent 18d4684f39865011849985d5cb4a8ceb16b8f02f
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 10 Jun 2011 09:52:41 +0200

Make 'glLightiv' analog to 'glMaterialfv'
Diffstat:
M
lib/openGl.l
 | 
11
++++++++++-

1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/lib/openGl.l b/lib/openGl.l
@@ -23,6 +23,15 @@
    "Dbl6" (0 . 1.0) )
 
 # Utilities
+(de iv-iv (Lst)
+   (cons NIL (16)
+      (mapcan
+         '((N)
+            (if (=0 N)
+               (list 0 0 0 0)
+               (cons (- N)) ) )
+         Lst ) ) )
+
 (de fv-iv (Lst)
    (cons NIL (16)
       (mapcan
@@ -249,7 +258,7 @@
    (native `*GlutLib "glShadeModel" NIL Num) )
 
 (de glLightiv (Light Pname Params)
-   (native `*GlutLib "glLightiv" NIL Light Pname (cons NIL (16) Params)) )
+   (native `*GlutLib "glLightiv" NIL Light Pname (iv-iv Params)) )
 
 (de glMaterialf (Face Pname Param)
    (set "Flt1" Param)