death-socket/DeathSocket/ScratchPad.fsx

#load "Validation.fs"
#load "GridPainter.fs"

open System.Drawing
open System
open System.Drawing.Imaging
open Validation
open DeathSocket

// 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 formSavePath =
    let desktop = Environment.GetFolderPath (Environment.SpecialFolder.Desktop)
    desktop + "/test-grid.png" // Change this to suit you.
img.Save (formSavePath)
img.Dispose
graphics.Dispose
pen.Dispose

// DEATH SOCKET TESTING =======================================================

let desktop = Environment.GetFolderPath (Environment.SpecialFolder.Desktop)
let savePath = desktop + "/test-grid.png" // Change this to suit you.

// Throws an exception if no file is found.
let validationTest = validateFilePath savePath