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