Add gl commands to slate

diff --git a/contrib/slate.factor b/contrib/slate.factor
index ede39dc03162f63714871142ca3e9f4087dcca3e..57c54743a65e9f9a4b8d57f14fcff171a85e1528 100644 (file)
--- a/contrib/slate.factor
+++ b/contrib/slate.factor
@@ -5,7 +5,6 @@ REQUIRES: contrib/math contrib/alien contrib/vars ;
 USING: kernel namespaces math sequences vectors arrays opengl gadgets
        math-contrib alien-contrib vars ;
 
-
 IN: slate
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -89,6 +88,10 @@ SYMBOL: capacity
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+: gl-normal ( vec -- ) first3 [ glNormal3f ] curry3 add-dlist ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
 : gl-begin ( mode -- ) [ glBegin ] curry add-dlist ;
 
 : gl-end ( -- ) [ glEnd ] add-dlist ;
@@ -132,6 +135,8 @@ SYMBOL: capacity
 : gl-material-fv ( face pname params -- )
 >float-array [ glMaterialfv ] curry3 add-dlist ;
 
+: gl-line-width ( width -- ) [ glLineWidth ] curry add-dlist ;
+
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : glu-look-at ( position focus up -- )