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

More slate/opengl commands

darcs
wayo.cavazos 2006-09-11 10:58:08 +00:00
parent 5bb503f4ac
commit ae14e7bec3
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
contrib/slate.factor
View File

@ -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 ;