More slate/opengl commands
parent
5bb503f4ac
commit
ae14e7bec3
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue