<tile-image> ( tile-bitmap original-image -- tile-image )


Vocabulary
images.tessellation

Inputs
tile-bitmapan object
original-imagean object


Outputs
tile-imagean object


Definition
USING: accessors arrays kernel sequences ;

IN: images.tessellation

: <tile-image> ( tile-bitmap original-image -- tile-image )
clone swap
[ concat >>bitmap ]
[ [ over tile-width ] [ length ] bi 2array >>dim ] bi ;