death-socket/DeathSocketCLI/Commands.fs

namespace Commands

    module ConsoleCommands =
        open DeathSocket
        open System.Drawing

        let test () = "Death Socket is working."

        let ``add-grid`` imgPath numRows numColumns pWidth (colour: string) newPath =
            let spec =
                { originalPath = imgPath
                  savePath = newPath
                  colour = Brushes.Red
                  penWidth = pWidth
                  rows = numRows
                  columns = numColumns }
            GridPainter.applyGrid spec |> Async.RunSynchronously