extra/opengl/lib/lib.factor

   1 USING: kernel alien.c-types sequences opengl.gl opengl.glu ;
   2
   3 IN: opengl.lib
   4
   5 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   6
   7 : gl-color-4f ( 4seq -- ) first4 glColor4f ;
   8
   9 : gl-clear-color ( 4seq -- ) first4 glClearColor ;
  10
  11 : gl-vertex-3f ( array -- ) first3 glVertex3f ;
  12
  13 : gl-normal-3f ( array -- ) first3 glNormal3f ;
  14
  15 : gl-material-fv ( face pname params -- ) >c-float-array glMaterialfv ;
  16
  17 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  18
  19 : glu-look-at ( eye focus up -- ) >r >r first3 r> first3 r> first3 gluLookAt ;