GridDraw_ELM

GridDraw.elm

{--
    グリッドを描く例
 --}

import List (..)

data Cell a = Blank a | Filled a | Outlined a | Other a | Nothing

type CellInfo = { width : Float
                , height : Float
                , color : Color
                }

xCoords side =
  concat . repeat side <| [1 .. side]

yCoords side =
  concat . map (repeat side) <| [1 .. side]

xyCoords side =
  zip (xCoords side) (yCoords side)

xycCoords side =
  zip  (xCoords side) (yCoords side) |> zipWith (\(x, y) c -> (x, y, c))

drawXy (x, y, c) = (x, y, c)

drawGrid f xys =
  map f <| xys

main = asText <| drawGrid drawXy <| xycCoords 8 <| repeat 64 Nothing