steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add gl commands to slate

darcs
wayo.cavazos 2006-09-16 11:22:19 +00:00
parent 093f38f421
commit cd31550a72
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contrib/slate.factor
View File

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