 ! Copyright (C) 2008 Doug Coleman, Joe Groff.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien.syntax arrays byte-arrays fry images
-images.normalization images.viewer kernel math math.vectors
-models namespaces opengl opengl.gl sequences ui ui.gadgets
-ui.gadgets.worlds ;
+USING: accessors byte-arrays images images.normalization
+images.viewer kernel math namespaces opengl opengl.gl sequences
+ui ui.backend ui.gadgets.worlds ;
 IN: cap
 
 <PRIVATE

    [ gl-scale ] bi@ * >fixnum <byte-array> ;

: gl-screenshot ( gadget -- byte-array )
    [
        [
            GL_BACK glReadBuffer

        dim>> first2 [ gl-scale >fixnum ] bi@
        GL_RGBA GL_UNSIGNED_BYTE
    ]
    [ screenshot-array ] tri
    [ glReadPixels ] keep ;

PRIVATE>
