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

extra/cap: keep support for 2x GL scaling

factor-shell
Cat Stevens 2018-01-04 18:18:28 -05:00 committed by John Benediktsson
parent 0acb424a5a
commit e269f78597
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/cap/cap.factor
View File

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