extra/cap: fix a bug where screenshots were incorrectly downscaled

factor-shell
Cat Stevens 2018-01-04 15:10:44 -05:00 committed by John Benediktsson
parent fb9c3920ae
commit 0acb424a5a
1 changed files with 1 additions and 1 deletions

View File

@ -24,7 +24,7 @@ IN: cap
[ glReadPixels ] keep ;
: screenshot ( window -- bitmap )
[ <image> t >>2x? ] dip
[ <image> ] dip
[ gl-screenshot >>bitmap ]
[ dim>> [ gl-scale >fixnum ] map >>dim ] bi
ubyte-components >>component-type