picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mlib/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)