-main = main2d_chunk
-
-
-main2d_chunk :: IO ()
-main2d_chunk = do
- (s:_) <- getArgs
- let scale = read s :: Int
- let zoom_factor = (1, scale, scale)
- let out_file = "output.bmp"
- arr <- read_word16s in_file
- let arr' = swap_bytes arr
- let arrInv = flip_x $ flip_y arr'
- let arrSlice = z_slice3 50 arrInv
- let dbl_data = R.map fromIntegral arrSlice
- let g = make_grid 1 dbl_data
- let output = zoom_chunk g zoom_factor
- write_values_chunk_to_bitmap output out_file
-