1 ! (c)2009 Joe Groff bsd license
2 USING: gpu.buffers gpu.render gpu.shaders gpu.textures images kernel
4 SPECIALIZED-ARRAY: float
7 CONSTANT: environment-cube-map-mv-matrices
47 VERTEX-FORMAT: window-vertex
48 { "vertex" float-components 2 f } ;
50 CONSTANT: window-vertexes
58 : <window-vertex-buffer> ( -- buffer )
60 static-upload draw-usage vertex-buffer
63 : <window-vertex-array> ( program-instance -- vertex-array )
64 [ <window-vertex-buffer> ] dip window-vertex buffer>vertex-array ;