add system.common.drawing to CLI.

Write a rough comman-method which overlays a grid to an image in CLI. This command is buggy and will need fixing.

DeathSocketCLI/Commands.fs

@@ -1,5 +1,17 @@
 namespace Commands
 
     module ConsoleCommands =
+        open DeathSocket
+        open System.Drawing
 
-        let test () = "Death Socket is working."
+        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

DeathSocketCLI/DeathSocketCLI.fsproj

@@ -61,6 +61,10 @@
     <Reference Include="mscorlib" />
     <Reference Include="System" />
     <Reference Include="System.Core" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Drawing.Common">
+      <HintPath>..\packages\System.Drawing.Common.4.5.0\lib\net461\System.Drawing.Common.dll</HintPath>
+    </Reference>
     <Reference Include="System.Numerics" />
     <Reference Include="System.ValueTuple">
       <Private>True</Private>

DeathSocketCLI/packages.config

@@ -2,5 +2,6 @@
 <packages>
   <package id="Console.Waterworks" version="0.1.0.0-alpha1" targetFramework="net471" />
   <package id="FSharp.Core" version="4.5.2" targetFramework="net471" />
+  <package id="System.Drawing.Common" version="4.5.0" targetFramework="net471" />
   <package id="System.ValueTuple" version="4.5.0" targetFramework="net471" />
 </packages>