From 0acb424a5a9c5cf18b5dc6362906ffadfec8dd89 Mon Sep 17 00:00:00 2001
From: Cat Stevens <catb0t@protonmail.ch>
Date: Thu, 4 Jan 2018 15:10:44 -0500
Subject: [PATCH] extra/cap: fix a bug where screenshots were incorrectly
 downscaled

---
 extra/cap/cap.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/cap/cap.factor b/extra/cap/cap.factor
index 564d0b9711..a02220ff36 100644
--- a/extra/cap/cap.factor
+++ b/extra/cap/cap.factor
@@ -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