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

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 -- ) : glu-look-at ( position focus up -- )
[ glLoadIdentity ] add-dlist [ glLoadIdentity ] add-dlist
>r >r first3 r> first3 r> first3 [ gluLookAt ] curry9 add-dlist ; >r >r first3 r> first3 r> first3 [ gluLookAt ] curry9 add-dlist ;