picolisp

commit 7bb3337ae94f3c437a58366fbb1f8311facb3e7d
parent 0de8f2a1021c12e72718ca218a4a0d52fd3c3758
Author: Commit-Bot <unknown>
Date:   Tue,  3 Aug 2010 13:11:01 +0000

Automatic commit from picoLisp.tgz, From: Tue, 03 Aug 2010 13:11:01 GMT
Diffstat:
M
lib/openGl.l
 | 
7
++++---

1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lib/openGl.l b/lib/openGl.l
@@ -252,11 +252,12 @@
 (de glShadeModel (Num)
    (native `*GlutLib "glShadeModel" NIL Num) )
 
-(de glViewport (X Y W H)
-   (native `*GlutLib "glViewport" NIL X Y W H) )
+(de glViewport (X Y Width Height)
+   (native `*GlutLib "glViewport" NIL X Y Width Height) )
 
 (de gluPerspective (Fovy Aspect ZNear ZFar)
-   (native `*GluLib "gluPerspective" NIL Fovy Aspect ZNear ZFar) )
+   (set "Dbl1" Fovy  "Dbl2" Aspect  "Dbl3" ZNear  "Dbl4" ZFar)
+   (native `*GluLib "gluPerspective" NIL "Dbl1" "Dbl2" "Dbl3" "Dbl4") )
 
 (de glutMainLoop ()
    (native `*GlutLib "glutMainLoop") )