factor: trim using lists

[factor.git] / extra / rosetta-code / bitmap / bitmap.factor

diff --git a/extra/rosetta-code/bitmap/bitmap.factor b/extra/rosetta-code/bitmap/bitmap.factor
index 3cac8cba12e1e827ac6842b15824ebf08cbe087d..305485a7230e0b73e6a7d2b983c2ffc1ec0699c7 100644 (file)
--- a/extra/rosetta-code/bitmap/bitmap.factor
+++ b/extra/rosetta-code/bitmap/bitmap.factor
@@ -1,6 +1,6 @@
 ! Copyright (c) 2012 Anonymous
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays fry kernel math.matrices sequences ;
+USING: arrays kernel math.matrices sequences ;
 IN: rosetta-code.bitmap
 
 ! http://rosettacode.org/wiki/Basic_bitmap_storage
@@ -21,12 +21,12 @@ IN: rosetta-code.bitmap
 
 ! Various utilities
 : meach ( matrix quot -- ) [ each ] curry each ; inline
-: meach-index ( matrix quot -- ) 
+: meach-index ( matrix quot -- )
     [ swap 2array ] prepose
     [ curry each-index ] curry each-index ; inline
 : mmap ( matrix quot -- matrix' ) [ map ] curry map ; inline
 : mmap! ( matrix quot -- matrix' ) [ map! ] curry map! ; inline
-: mmap-index ( matrix quot -- matrix' ) 
+: mmap-index ( matrix quot -- matrix' )
     [ swap 2array ] prepose
     [ curry map-index ] curry map-index ; inline
 
@@ -35,9 +35,9 @@ IN: rosetta-code.bitmap
 : Mi,j ( {i,j} matrix -- elt ) [ first2 swap ] dip nth nth ;
 
 ! The storage functions
-: <raster-image> ( width height -- image ) 
-    zero-matrix [ drop { 0 0 0 } ] mmap ;
-: fill-image ( {R,G,B} image -- image ) 
+: <raster-image> ( width height -- image )
+    <zero-matrix> [ drop { 0 0 0 } ] mmap ;
+: fill-image ( {R,G,B} image -- image )
     swap '[ drop _ ] mmap! ;
 : set-pixel ( {R,G,B} {i,j} image -- ) set-Mi,j ; inline
 : get-pixel ( {i,j} image -- pixel ) Mi,j ; inline