module GridBox.Grid
(
Grid
, createGrid
, makeGrid
) where
import GridBox.Row (Row, makeRow)
import Data.List (map)
type Grid = [Row]
createGrid :: (Double, Double) -> Double -> Double -> Double -> Double -> Grid
createGrid (sizeX, sizeY) width height xOffset yOffset =
makeGrid [0..(ceiling((width1)/sizeX) :: Int)] [0..(ceiling((height1)/sizeY) :: Int)] (sizeX, sizeY) xOffset yOffset
makeGrid :: [Int] -> [Int] -> (Double, Double) -> Double -> Double -> Grid
makeGrid rows cols size xOffset yOffset =
map (makeRow size xOffset yOffset cols) rows