! 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 )
+ [ find-world handle>> select-gl-context ]
[
[
GL_BACK glReadBuffer
dim>> first2 [ gl-scale >fixnum ] bi@
GL_RGBA GL_UNSIGNED_BYTE
]
- [ screenshot-array ] bi
+ [ screenshot-array ] tri
[ glReadPixels ] keep ;
PRIVATE>