=update scratchpad to use new code.

DeathSocket/GridPainter.fs

@@ -81,8 +81,11 @@ namespace DeathSocket
         let scaleLineThickness (previewDimension: double) (actualDimension: double) (lineThickness: double) =
             lineThickness / (previewDimension / actualDimension)
 
-        // NOT TESTED.
-        let determineDimension imageType =
+        /// <summary>
+        /// 
+        /// </summary>
+        /// <param name="imageType"></param>
+        let determineImageDimensions imageType =
             match imageType with
             | SkiaSharp s ->
                 validateIO s |> ignore

DeathSocket/ScratchPad.fsx

@@ -1,7 +1,7 @@
-// These two paths need adjusting to match your computer.
+// These paths need adjusting to match your computer.
 #r @"C:/Users/craig/.nuget/packages/skiasharp/1.68.0/lib/netstandard1.3/SkiaSharp.dll"
 // Currently not working...
-// #r @"C:/Users/craig/.nuget/packages/skiasharp/1.68.0/runtimes/win10-x86/nativeassets/uap10.0/libSkiaSharp.dll"
+// #r @"C:/Users/craig/.nuget/packages/skiasharp/1.68.0/runtimes/win-x64/native/libSkiaSharp.dll"
 
 #load "Domain.fs"
 #load "Validation.fs"
@@ -41,15 +41,30 @@ let skVerticalLines = createSKVerticalLines 120 450 22
 (* You will need to provide the image and specify its load/save location.
 Death Socket assumes either JPEG or PNG files.*)
 
-// Not working at time of writing see "#r" comment (lines 3 and 4)
+// Internal function call. Not accessible outside this project.
 let skiaSharpDimensions =
     determineSkiaDimensions (desktop + "/test.jpg")
 
+// Internal function call. Not accessible outside this project.
 let systemDrawingDimensions =
     determineSystemDrawingDimensions (desktop + "/test.jpg")
 
-let width = double (fst systemDrawingDimensions) // skiaSharpDimensions
-let height = double (snd systemDrawingDimensions) // skiaSharpDimensions
+// Internal function calls. Not accessible outside this project.
+let width = double (fst skiaSharpDimensions)
+let width2 = double (fst systemDrawingDimensions)
+
+// Internal function calls. Not accessible outside this project.
+let height = double (snd skiaSharpDimensions)
+let height2 = double (snd systemDrawingDimensions)
+
+// Public function for the internal ones above.
+let dimensions =
+    //SkiaSharp (desktop + "/test.jpg")
+    SystemDrawing (desktop + "/test.jpg")
+    |> GridPainter.determineImageDimensions
+
+let width3 = fst dimensions
+let height3 = snd dimensions
 
 // Change the line thickness (the last parameter) to whatever you want.
 let scaledPen = GridPainter.scaleLineThickness width height 8.0