From 84942b540993bd9498d4c1403b87661210336742 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 19 Sep 2010 21:43:36 -0500
Subject: [PATCH] Make a couple utility words in images vocabulary

---
 basis/images/images.factor | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/basis/images/images.factor b/basis/images/images.factor
index 6cbcdb9508..4cea5f9f66 100644
--- a/basis/images/images.factor
+++ b/basis/images/images.factor
@@ -66,6 +66,11 @@ TUPLE: image dim component-order component-type upside-down? bitmap ;
 
 : <image> ( -- image ) image new ; inline
 
+: <rgb-image> ( -- image )
+    <image>
+        RGB >>component-order
+        ubyte-components >>component-type ; inline
+
 : has-alpha? ( image -- ? ) component-order>> alpha-channel? ;
 
 : bytes-per-component ( component-type -- n )
@@ -125,6 +130,9 @@ TUPLE: image dim component-order component-type upside-down? bitmap ;
 
 : bytes-per-pixel ( image -- n )
     [ component-order>> ] [ component-type>> ] bi (bytes-per-pixel) ;
+    
+: bytes-per-image ( image -- n )
+    [ dim>> product ] [ bytes-per-pixel ] bi * ;
 
 <PRIVATE