steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove the fbo code, use the gadget title

db4
Doug Coleman 2008-10-30 16:54:55 -07:00
parent f3f1ec8b43
commit f860d97d43
1 changed files with 2 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
extra/cap/cap.factor
View File

@ -8,7 +8,7 @@ IN: cap
: gl-screenshot ( gadget -- byte-array ) : gl-screenshot ( gadget -- byte-array )
[ [
GL_COLOR_ATTACHMENT0_EXT glReadBuffer GL_BACK glReadBuffer
GL_PACK_ALIGNMENT 1 glPixelStorei GL_PACK_ALIGNMENT 1 glPixelStorei
0 0 0 0
] dip ] dip
@ -21,33 +21,11 @@ IN: cap
[ dim>> first2 ] bi [ dim>> first2 ] bi
bgr>bitmap ; 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 -- ) : save-screenshot ( window path -- )
[ screenshot ] dip save-bitmap ; [ screenshot ] dip save-bitmap ;
: screenshot. ( window -- ) : screenshot. ( window -- )
screenshot <graphics-gadget> "Screenshot" open-window ; [ screenshot <graphics-gadget> ] [ title>> ] bi open-window ;