brillo-examples-1.13.3: picture/Occlusion/Data.hs

module Data where


worldData :: String
worldData =
  unlines
    [ "WORLD"
    , "32 32"
    , " 01234567890123456789012345678901"
    , "0#..............................#"
    , "1.....................#####......"
    , "2....#.#.#.#..#.#.#.............."
    , "3....#######...#.#....#.#.#......"
    , "4....#######..#.#.#.............."
    , "5....#######...#.#...###.###....."
    , "6................................"
    , "7......#.#.............#.#......."
    , "8......#.#.............#.#......."
    , "9......#.#.............#.#......."
    , "0......#.#####.........#.#......."
    , "1......#.....#.........#.#......."
    , "2......#.###.#.........#.#......."
    , "3......#.#.#.###########.#######."
    , "4......#.#.#...................#."
    , "5......#.#.#####################."
    , "6......#.#......................."
    , "7......#.#...########............"
    , "8......#.#...#......#............"
    , "9......#.#...########............"
    , "0......#.#................####..."
    , "1......#.#.........#####..#..#..."
    , "2......#.###########...####..#..."
    , "3......#.....................#..."
    , "4..#####.###########...####..#..."
    , "5..#.....#.........#####..#..#..."
    , "6..#.#####.....#..........####..."
    , "7..#.#.........#................."
    , "8..#.#......#######.............."
    , "9..#.#.........#................."
    , "0..............#................."
    , "1#..............................#"
    ]