From 2d084c3178ead696211de50cf10c3f67ebc54b24 Mon Sep 17 00:00:00 2001
From: Cat Stevens <catb0t@protonmail.ch>
Date: Thu, 4 Jan 2018 22:49:20 -0500
Subject: [PATCH] extra/cap: clean up cap:screenshot, move non-public API to
 cap.private

---
 extra/cap/cap.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/extra/cap/cap.factor b/extra/cap/cap.factor
index 15ae746e24..1949f533c5 100644
--- a/extra/cap/cap.factor
+++ b/extra/cap/cap.factor
@@ -6,6 +6,8 @@ models namespaces opengl opengl.gl sequences ui ui.gadgets
 ui.gadgets.worlds ;
 IN: cap
 
+<PRIVATE
+
 : screenshot-array ( world -- byte-array )
     dim>> [ first 4 * ] [ second ] bi
     [ gl-scale ] bi@ * >fixnum <byte-array> ;
@@ -23,10 +25,11 @@ IN: cap
     [ screenshot-array ] bi
     [ glReadPixels ] keep ;
 
+PRIVATE>
+
 : screenshot ( window -- bitmap )
     [ <image>
-        gl-scale-factor get-global
-        [ >integer 2 = [ >>2x? ] when* ] when*
+        gl-scale-factor get-global [ 2.0 = >>2x? ] when*
     ] dip
     [ gl-screenshot >>bitmap ]
     [ dim>> [ gl-scale >fixnum ] map >>dim ] bi