More slate/opengl commands

diff --git a/contrib/slate.factor b/contrib/slate.factor
index c1d26fcc4c49d3c5d77380c8c3f71406c367d385..009eff7e4f019e45053f9bb98ddea7515c8f69f7 100644 (file)
--- 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 ;