remove the fbo code, use the gadget title

diff --git a/extra/cap/cap.factor b/extra/cap/cap.factor
index 858ec3e596cef3940a26788d20e6e9cd233d232a..5f3ee7b96067b4b94b6ce6aacd7f88542302a6cf 100644 (file)
--- a/extra/cap/cap.factor
+++ b/extra/cap/cap.factor
@@ -8,7 +8,7 @@ IN: cap
 
 : gl-screenshot ( gadget -- byte-array )
     [
-        GL_COLOR_ATTACHMENT0_EXT glReadBuffer
+        GL_BACK glReadBuffer
         GL_PACK_ALIGNMENT 1 glPixelStorei
         0 0
     ] dip
@@ -21,33 +21,11 @@ IN: cap
     [ dim>> first2 ] bi
     bgr>bitmap ;
 
-: gadget-world ( gadget -- world )
-    "fake" f <model> <world> ;
-
-: draw-world-to-fbo ( world fbo -- )
-    [ relayout-1 ] with-framebuffer ;
-
-: <fbo> ( w h -- fbo )
-    GL_DEPTH_TEST glDisable
-    gen-framebuffer [ '[
-        gen-renderbuffer
-        GL_RENDERBUFFER_EXT over glBindRenderbufferEXT
-        GL_RENDERBUFFER_EXT GL_RGB _ _ glRenderbufferStorageEXT
-        GL_FRAMEBUFFER_EXT
-        GL_COLOR_ATTACHMENT0_EXT
-        GL_RENDERBUFFER_EXT roll glFramebufferRenderbufferEXT
-        check-framebuffer
-    ] with-framebuffer ] keep ;
-
-: draw-gadget-to-bgr ( gadget -- byte-array )
-    [ [ prefer ] [ gadget-world ] bi ] [ dim>> first2 <fbo> ] bi
-    [ gl-screenshot ] with-framebuffer ;
-
 : save-screenshot ( window path -- )
     [ screenshot ] dip save-bitmap ;
 
 : screenshot. ( window -- )
-    screenshot <graphics-gadget> "Screenshot" open-window ;
+    [ screenshot <graphics-gadget> ] [ title>> ] bi open-window ;