DisplayWorldInColor.fs

let displayWorld (world: World) turnsRemaining =
  printfn ""
  printfn "%i turn(s) remaining" turnsRemaining
  printfn ""

  for y in 1..world.MaxX do
    printf "  " // Indent slightly so it is a bit more readable

    for x in 1..world.MaxY do   
      // Determine which character should exist in this line
      let char = world |> getCharacterAtCell(x,y)

      // Let's set the overall color
      match char with
      | '.' -> Console.ForegroundColor <- ConsoleColor.DarkGreen
      | 't' -> Console.ForegroundColor <- ConsoleColor.Green
      | 'a' -> Console.ForegroundColor <- ConsoleColor.DarkYellow
      | 'S' | 's' -> Console.ForegroundColor <- ConsoleColor.Yellow
      | 'D' -> Console.ForegroundColor <- ConsoleColor.Red
      | 'R' -> Console.ForegroundColor <- ConsoleColor.Magenta
      | _ -> Console.ForegroundColor <- ConsoleColor.Gray 

      printCell char (x = world.MaxX)

  // Ensure we go back to standard format
  Console.ForegroundColor <- ConsoleColor.White