: flatten-table ( seq^3 -- seq ) [ concat pad ] map concat ; : preprocess ( image -- pixelrows ) normalize-image image>pixel-rows ; : rotate ( image n -- image ) [ dup preprocess ] dip (n-rotate) flatten-table >>bitmap ; : wall-mirror ( image -- image ) dup preprocess [ reverse ] map flatten-table >>bitmap ; : lake-mirror ( image -- image ) dup preprocess reverse flatten-table >>bitmap ;