picolisp

commit fcc6d579f038bf490b2d9361522c1d525af1d889
parent 7bb3337ae94f3c437a58366fbb1f8311facb3e7d
Author: Commit-Bot <unknown>
Date:   Wed,  4 Aug 2010 10:48:11 +0000

Automatic commit from picoLisp.tgz, From: Wed, 04 Aug 2010 10:48:11 GMT
Diffstat:
M
lib/openGl.l
 | 
6
+++++-

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lib/openGl.l b/lib/openGl.l
@@ -1,4 +1,4 @@
-# 03aug10abu
+# 04aug10abu
 # 27jul10jk
 # (c) Software Lab. Alexander Burger
 
@@ -206,6 +206,10 @@
    (set "Flt1" X  "Flt2" Y  "Flt3" Z)
    (native `*GlutLib "glTranslatef" NIL "Flt1" "Flt2" "Flt3") )
 
+(de glVertex2f (X Y)
+   (set "Flt1" X  "Flt2" Y)
+   (native `*GlutLib "glVertex2f" NIL "Flt1" "Flt2") )
+
 (de glVertex3f (X Y Z)
    (set "Flt1" X  "Flt2" Y  "Flt3" Z)
    (native `*GlutLib "glVertex3f" NIL "Flt1" "Flt2" "Flt3") )