From e67a85a1f98ef0df2f4ccc5616bfd932be19ffe1 Mon Sep 17 00:00:00 2001 From: "OPTIMUS-PRIME\\craig" Date: Mon, 12 Nov 2018 04:22:53 +0000 Subject: [PATCH] add skia sharp to library and fix references in ScratchPad.fs. --- DeathSocket/DeathSocket.fsproj | 1 + DeathSocket/ScratchPad.fsx | 5 +++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/DeathSocket/DeathSocket.fsproj b/DeathSocket/DeathSocket.fsproj index 80d6bb6..b152d9f 100644 --- a/DeathSocket/DeathSocket.fsproj +++ b/DeathSocket/DeathSocket.fsproj @@ -29,6 +29,7 @@ New functions have been added so you can now create a SolidBrush using individua + diff --git a/DeathSocket/ScratchPad.fsx b/DeathSocket/ScratchPad.fsx index 13eaa89..9cd1a3f 100644 --- a/DeathSocket/ScratchPad.fsx +++ b/DeathSocket/ScratchPad.fsx @@ -1,5 +1,6 @@ #load "Domain.fs" #load "Validation.fs" +#load "ColourServices.fs" #load "ImageServices.fs" #load "GridPainter.fs" @@ -30,7 +31,7 @@ let verticalLines = createVerticalLines 300 600 10 Death Socket assumes either JPEG or PNG files so use other files at your own risk. Cannot guarantee they will work. Also, either in this spec. can be changed to suit your needs. *) -let spec :ImageSpec = +let spec: BrushSpec = { originalPath = desktop + "/test.jpg" savePath = desktop + "/grid.png" colour = Brushes.Chartreuse @@ -39,4 +40,4 @@ let spec :ImageSpec = columns = 10 } // Run this when you have finished building the spec. -GridPainter.applyGridAsync spec |> Async.RunSynchronously +GridPainter.applyBrushSpecGridAsync spec |> Async.RunSynchronously