cap: explicitly set the image's component-type

2009-10-06 16:49:23 -04:00 · 2009-10-06 16:49:23 -04:00 · 0b5192d398
parent a59c01ead9
commit 0b5192d398
1 changed files with 1 additions and 0 deletions
--- a/extra/cap/cap.factor
+++ b/extra/cap/cap.factor
@ -23,6 +23,7 @@ IN: cap
 : screenshot ( window -- bitmap )
    [ <image> ] dip
    [ gl-screenshot >>bitmap ] [ dim>> >>dim ] bi
+    ubyte-components >>component-type
    RGBA >>component-order
    t >>upside-down?
    normalize-image ;