From c417f829bdf1869d035b2e0e66e5019cff8c2a45 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@secrets.local>
Date: Sat, 1 Nov 2008 15:48:35 -0500
Subject: [PATCH] fix potential garbled output

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

diff --git a/extra/cap/cap.factor b/extra/cap/cap.factor
index 5f3ee7b960..ea5462acf2 100644
--- a/extra/cap/cap.factor
+++ b/extra/cap/cap.factor
@@ -1,6 +1,8 @@
+! Copyright (C) 2008 Doug Coleman, Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays byte-arrays kernel math namespaces
 opengl.gl sequences math.vectors ui graphics.bitmap graphics.viewer
-models opengl.framebuffers ui.gadgets.worlds ui.gadgets fry ;
+models opengl.framebuffers ui.gadgets.worlds ui.gadgets fry alien.syntax ;
 IN: cap
 
 : screenshot-array ( world -- byte-array )
@@ -9,7 +11,7 @@ IN: cap
 : gl-screenshot ( gadget -- byte-array )
     [
         GL_BACK glReadBuffer
-        GL_PACK_ALIGNMENT 1 glPixelStorei
+        GL_PACK_ALIGNMENT 4 glPixelStorei
         0 0
     ] dip
     [ dim>> first2 GL_BGR GL_UNSIGNED_BYTE ]
@@ -25,7 +27,4 @@ IN: cap
     [ screenshot ] dip save-bitmap ;
 
 : screenshot. ( window -- )
-    [ screenshot <graphics-gadget> ] [ title>> ] bi open-window ;
-
-
-
+    [ screenshot <graphics-gadget> ] [ title>> ] bi open-window ;