Merge remote-tracking branch 'Blei/gtk-image-loader'

[factor.git] / basis / images / images.factor

diff --git a/basis/images/images.factor b/basis/images/images.factor
index db731d20452848df476fff541b801a51316ccffd..d033186fc0239fc6f538fe2a31b7950f5c021de8 100644 (file)
--- a/basis/images/images.factor
+++ b/basis/images/images.factor
@@ -128,6 +128,9 @@ TUPLE: image
 
 : 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