diff --git a/DeathSocket/DeathSocket.fsproj b/DeathSocket/DeathSocket.fsproj index 0043982..3bbfa70 100644 --- a/DeathSocket/DeathSocket.fsproj +++ b/DeathSocket/DeathSocket.fsproj @@ -5,10 +5,9 @@ + - - diff --git a/DeathSocket/ScratchPad.fsx b/DeathSocket/ScratchPad.fsx index b8ca8fc..040769b 100644 --- a/DeathSocket/ScratchPad.fsx +++ b/DeathSocket/ScratchPad.fsx @@ -1,5 +1,35 @@ #load "GridPainter.fs" open DeathSocket +open System.Drawing +open System +open System.Drawing.Imaging + +// Initial Idea ============================================================== + +// Change the image or its path to suit your purposes. +let img = Bitmap.FromFile (__SOURCE_DIRECTORY__ + "/test-img.jpg") +let graphics = Graphics.FromImage img +let imgWidth = img.Size.Width +let imgHeight = img.Size.Height +(* Keeping it simple here. +Going to just create a 2x2 grid. +In other words, I'm just halving the width and the height. *) +let verticalLine = + let midpoint = imgHeight / 2 + [|Point (0, midpoint); + Point (imgWidth, midpoint)|] +let horizontalLine = + let midpoint = imgWidth / 2 + [| Point (midpoint, 0); + Point (midpoint, imgWidth)|] +let pen = new Pen (Brushes.Red, width = (float32 (10)) ) +graphics.DrawLine (pen, verticalLine.[0], verticalLine.[1]) +graphics.DrawLine (pen, horizontalLine.[0], horizontalLine.[1]) +let desktop = Environment.GetFolderPath (Environment.SpecialFolder.Desktop) +let savePath = desktop + "/test-grid.png" // Change this to suit you. +img.Save (savePath) +img.Dispose +graphics.Dispose +pen.Dispose -// code to go here... \ No newline at end of file diff --git a/DeathSocket/test-img.jpg b/DeathSocket/test-img.jpg new file mode 100644 index 0000000..f7d26e3 Binary files /dev/null and b/DeathSocket/test-img.jpg differ