From ae14e7bec35f293eb62386b6a4123991a933b2b0 Mon Sep 17 00:00:00 2001
From: "wayo.cavazos" <wayo.cavazos@gmail.com>
Date: Mon, 11 Sep 2006 10:58:08 +0000
Subject: [PATCH] More slate/opengl commands

---
 contrib/slate.factor | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/contrib/slate.factor b/contrib/slate.factor
index c1d26fcc4c..009eff7e4f 100644
--- a/contrib/slate.factor
+++ b/contrib/slate.factor
@@ -108,6 +108,17 @@ SYMBOL: capacity
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+: gl-light-fv ( light pname params -- )
+>float-array [ glLightfv ] curry3 add-dlist ;
+
+: gl-light-model-fv ( pname params -- )
+>float-array [ glLightModelfv ] curry2 add-dlist ;
+
+: gl-material-fv ( face pname params -- )
+>float-array [ glMaterialfv ] curry3 add-dlist ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
 : glu-look-at ( position focus up -- )
 [ glLoadIdentity ] add-dlist
 >r >r first3 r> first3 r> first3 [ gluLookAt ] curry9 add-dlist ;