diff --git a/DeathSocketCLI/Commands.fs b/DeathSocketCLI/Commands.fs index 884b0ff..f1b6bfd 100644 --- a/DeathSocketCLI/Commands.fs +++ b/DeathSocketCLI/Commands.fs @@ -1,5 +1,17 @@ namespace Commands module ConsoleCommands = + open DeathSocket + open System.Drawing - let test () = "Death Socket is working." \ No newline at end of file + let test () = "Death Socket is working." + + let ``paint-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 \ No newline at end of file diff --git a/DeathSocketCLI/DeathSocketCLI.fsproj b/DeathSocketCLI/DeathSocketCLI.fsproj index deb8fe3..6109f5e 100644 --- a/DeathSocketCLI/DeathSocketCLI.fsproj +++ b/DeathSocketCLI/DeathSocketCLI.fsproj @@ -61,6 +61,10 @@ + + + ..\packages\System.Drawing.Common.4.5.0\lib\net461\System.Drawing.Common.dll + True diff --git a/DeathSocketCLI/packages.config b/DeathSocketCLI/packages.config index daebccc..45c38e7 100644 --- a/DeathSocketCLI/packages.config +++ b/DeathSocketCLI/packages.config @@ -2,5 +2,6 @@ + \ No newline at end of file